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Yereniging 



INFORMATIE, 

De uP Kenner (De microprocessor Kenner) is 
een uitgave van de KIM gebruiker sc lub 
Nederland. Deze vereniging is volledig 
onaf hankeli jk, is statutair opgericht op 
22 juni 1978 en ingeschreven bij de Kamer 
van Koophandel en Fabrieken voor Hollands 
Noorderkwart ier te Alkmaar, onder nummer 
63A305, 

De doelstel lingen van de vereniging zijn 
sinds 1 januari 1989 als volgt geformu- 
leerd: 

- Het vergaren en verspreiden van ken- 
nis over componenten van microcompu- 
ters, de microcomputers zelf en de 
bijbehorende systeemsof tware « 

- Het stimuleren en ondersteunen van 
het gebruik van microcomputers in de 
meer technische toepassingen. 

Om deze doelstel lingen zo goed mogelijk in 
te vullen, wordt onder andere 6 maal per 
jaar de uP Kenner uitgegeven. Verder wor- 
den er door het bestuur per jaar 5 lande- 
lijke bi j eenkomsten georganiseerd, be- 
heert het bestuur een Bulletin Board en 
wordt er een software-bib liotheek en een 
technisch forum voor de diverse systemen 
in stand gehouden. 

Landelijke bij eenkomsten: 

Deze worden gehouden op bij voorkeur de 
derde zaterdag van de maanden januari, 
maart, mei, September en november. De 
exacte plaats en datum worden steeds in de 
uP Kenner bekend gemaakt in de rubriek 
Uitnodiging • 

Bulletin Board: 

Voor het uitwisselen van mededelingen, het 
stellen en beantwoorden van vragen en de 
verspreiding van software wordt er door de 
vereniging een Bulletin Board beschikbaar 
gesteld. 

Het telefoonnummer is: 053-303902. 

Software Bibliotheek en Technisch Forum: 

Voor het beheer van de Software Biblio- 
theek en technische ondersteuning streeft 
het bestuur ernaar zgn. sy steemcoBrdina- 
tors te benoemen. Van tijd tot tijd zal in 
de uP Kenner een overzicht gepubliceerd 
worden. Dit overzicht staat ook op het 
Bulletin Board. 



Het Bestuur: 

Het bestuur van de vereniging wordt ge- 
vormd door een dagelijks bestuur bestaande 
uit een voorzitter, een secretaris en een 
penningmeester en een viertal gewone leden. 

Voorzitter: 
Rinus Vleesch Dubois 
Emiliano Zapataplein 2 
2033 CB HAARLEM 
Telefoon 023-330993 

Secretaris: 
Gert Klein 
Diedenweg 119 
6706 CM WAGENINGEN 
Telefoon 08370-23646 

Penningmeester : 
Jacques H. Banser 
Haaksbergerstraat 199 
7513 EM ENSCHEDE 
Telefoon 053-32A137 

Leden: 

Jan D.J. Derksen 
Ed Verkadestraat 9-1 
7558 TH HENGELO 
Telefoon 074-770970 

Adri Hankel 
Wil lem Kloosstraat 32 
7606 BB ALMELO 
Telefoon 05490-51151 

Gert van Opbroek (Redactie uP Kenner) 

Bateweg 60 

2481 AN WOUBRUGGE 

Telefoon 01729-8636 

Nico de Vries 
Mari Andriessenrade 49 
2907 MA CAPELLE A/D IJSSEL 
Telefoon 010-4517154 

Ereleden: 

Naast het bestuur zijn er een aantal ere- 
leden, die zich in het verleden bijzonder 
verdiensteli jk voor de club hebben ge- 
maakt : 

Erevoorzitter : 
Siep de Vries 
Ereleden: 

Mevr. H. de Vries van der Winden 
Anton Mueller 
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De uP Kenner: 

De uP Kenner is het huis- 
orgaan van d^' «f« iife^ful-- 
kersclub Nederland en 
wordt bij verschijnen gra- 
tis toegezonden aan alle 
leden van deze club. 

. VersGtii jiijjipadata: 

W eftAef' verschijrit op 
de derde zaterdag van de 
maanden februari, april, 
juni, augustus, 5dlrtii1i€i:* 
mDk december* 

Kopi j : 

Kopij voor het blad dient 
bij voorkeur van de leden 
afkomstig te zijn. Deze 
kopij kan op papier of in 
machine- lee sbare vorm op- 
gestuurd worden aan het 
redactieadres. De redactie 
beslist, op basis van 
bruikbaarheid , pub 1 i cat ie- 
W4mrde en actualiteit of 

ingezonden art Ike 1 ge** 
plaatst wordt. 
Geplaatste artikelen blij- 
ven het geestelijk eigen- 
dom van de auteur en mogen 
niet zonders diens toe-* 
stemming door derden gepu- 
bliceerd worden. 
Helaas kan de redactie 
noch het bestuur enige 
aansprakeli jk aanvaarden 
voor de toepasslng(en) vam 
de geplaatste kopij* 

Redactie. 

De redactie wordt gevormd 

6eirt van Opbroek 

Cor respondent en: 
Bram de Bruine 
Antoine Megens 
SjLeQ, de Vries 
iflmis Vleesch ©t3^tp 

Redact ieadres: 
Gert van OpbrcN^ 
Bat:e|?eg §Q 

f til • m Wmkm^^ 

Druk: 

ACl Off setdrukkerij B.V. 
Langsom 10-16 
1066 EW Amsterdam 
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Op het moment waarop ik dit schrijf , zit 
u misschien al uit te kijken naar de uP 
Kenner. Ik ben dus wear eens wat aan de 
late kant met het Inleveren van het blad 
blj de drtikker en zodoende krljgt u het 
blad ook iets later dan normaliter de 
bedoeling is. Over het algemeen komt het 
blad de derde zaterdag van de even maan- 
den uit« Dat betekent dat het blad in de 
l^mp wm ie nfeek T0lgend op Smm ^ateiriag 
(meestal de donderdag) bij u in de bus 
ligt. Deze keer zal dat niet lukken en 
zal het blad waarschijnli jk een week te 
laat bij u in de bus liggen. Ik veront- 
schuldig mij daarvoor want uw redacted 
heef t het in de afgelopen perlode zeer 
druk gehad eil als dan oolk nog de eerste 
zaterdag van de maand op 1 april valt^, 
dan wordt het allemaal erg kort dag. 

Eerst iet^ py^.K A^, ,yc)r:L^e ultj|av^ van het 
blad* iW Was z^lf zeer teirt'iden over <ie 
vorm en de inhoud van het blad en met mij 
een aantal lezers. Ik heb van een aantal 
mensen te horen gekregen dat het blad er 
bijzonder goed uitzag en ook de inhoud 
Itjlli^llir aansprak. Ik ben daar erg blij 
cm, want zelf wil ik, als ik de kans 
krljg, graag bladen maken die de leden 
aanspreken. Ik maak de uP Kenner natuur- 
lijk niet alleen. Ik wil de inzenders van 
kopij dan ook heel hartelijk danken voor 
Iwyin bij42::,age(n) ^n de cQmplimenten hier- 
Mj idoorgeven aan hun« 

Wat mij overigens opviel, is dat ik 
steeds meer artikeltjes krijg in de vorm 
van een verhaaltje. Op deze manier krijgt 
bet blad meer de vorm van een magazine en 
wordt veel afwisse lender. Ik ben daar wel 
blij mee waarbij ik ook vindt dat er 
ruimte moet zijn voor programma's. Ik 
denk dat een middenweg het beste is, 
enerzijds meer verhalende artikelen, an- 
derzijds ook §§n of twee programma^'s die 
voor anderen nuttlg kunnen zljn of als 
voorbeeld voor meer algemene zaken kunnen 
dienen. Het nadeel van programma's is 
echter wel dat ze relatief veel ruimte 
innemen. Hoe denkt u hier trouwens over? 
Hit ;^pu u gwwmg Mm Tmt bludi 3id.em? Sft^efct 
llit blad u aan of juist niet, laat het 
mij eens weten, per brief, bulletin board 
of telefoon. Samen met u kan dan het blad 
misschien (nog) beter gemaakt worden. 

Kqplj kan Ik matimrlljk altijd gebruiken* 
De volgende uit gave komt in de zdmer en 

dat is voor computer-hobbyisten vaak een 
tijd dat ze liever buiten bezig zijn dan 



achter een toetsenbord kruipen. E§n van 
mijn correspondenten heeft geprobeerd 
buiten in de zon met de computer bezig te 
zijn, maar dat was ook geen succes; hij 
kon nauwelijks lezen wat er op zijn 
beeldscherm stop^f Vanwege het f eit dat 
er minder gehobbiet wordt , breekt er voor 
de redactie vaak de zogenaamde Komkommer- 
tijd aan met een gebrek aan kopij. Ik wil 
u dus vragen, mij zoveel kopij te sturen 
dat ik pr obi emeu heb m.et^ het uitzoeken 
wat Ik niet in het blad moet f l aat sen in 
plaats van slapeloze nachten te hebben 
over hoe ik het blad nu weer vol moet 

Een aantal mensen zullen mij wel op de 
bljeeo^kl^t in Gel drop gemist hebben. Ik 
was wel v^n plan te komen, maar we hadden 

in ons huis een kleine verbouwing en dat 
vroeg zo veel energie dat ik de puf niet 
had naar Geldrop te rijden. Ik vindt dat 
erg jammer want ten eerste had ik graag 
de lezlng bi jgewoond en te tweede mag ik 
graag even met de aanwezigen keuvelen. Ik 
beloof u: Op de volgende bijeenkomst ben 
ik, ijs en weder dienende, wel van de 
partij, u toch ook? De volgende bijeen- 
komst vindt plaats ±m JLlmeX# m m 
begrepen dat er enkele zeer spectaculalre 
dingen op het programma staan. Twee van 
de bestuurs leden (Rinus en Nico) houden 
gezamelijk een voordracht over de diverse 
grafische kaarten voor MS-DOS machines. 
Verder zullen ze met behulp van enkele 
machines Wat grafische mogelljkheden la- 
ten zien. Ik heb begrepen dat er hoog*- 
resolutie k leurenbuizen en dergelijke 
meegesleept zullen worden naar Almelo. ^s 
Middags, tijdens het informele gedeelte, 
worden ^i^ 4aiiiomptFatles gegeveti tota itet 
behulp van een PC print ontwerpen gemaakt 
kunnen worden; kortom hoe bij voorbeeld de 
EPROM-Prog rammer tot stand gekomen is*; 
met al zeer interessant dus. 

Tens lot te nog lets over de inhoud van het 
blad« In dit nummer staat de volgende 
af levering van de rubrieken getal len, 
computers, PC's en de assemb lercursus. 
Een verhaal over communicatie staat er 
dit keer niet in, Bram de Bruine is wel 
bezig met een volgende af levering maar 
heeft iets meer tijd nodig# V.erder staat 
er een tracer-programma voor TOB^65 in en 
nog wat andere zaken. Ik hoop dat u veel 
plezier aan het blad beleeft en wens u 
verder veel genoegen aan uw hobby • 

Gert van Opbroek 
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Uitnodiging voor de c lubbi j eenkoms t 



Datum: 
locatie: 



Tel.: 



Zaterdag 20 mei 1989 
Wijkcentrum Veurbo<#&. 
Jan Tooropstraat 27 
7606 Almelo 
05490 - 10353 



Toegang: fl. 10, — 
l^i)@ilieschrijving 

Van uit het westen en het zuiden (A1/A35): 

1. Aan het einde van de snelweg rechtsaf. 
Bij het eerstvolgende kruispunt MET VER- 
K^piLlCHTEK liiyis^^^ richting Wierden/ 
Wl^&lMm Bij de eerstvolgende verkeerslich- 
ten rechtdoor. Bij de volgende verkeers- 
lichten (links BP tankstation en Opel 
garage Kamp) gaat u rechtsaf. 

2. U rijdt nu op de Windmo lenbroeksweg. 
Doorrijden tot over de brug, dan de eerste 
straat rechts. Dit is de W. van Konijnen- 
burgstraat. Na plm. 50 meter rechtsaf. Dit 
is de Tooropstraat. Met de bocht mee naar 
links. Na plm. 50 meter aan 4e rechter- 
kant: ^t Veurbropk. 

Van uit het nooiiim 4e-i 36): 

1. Bij de stop lichten rechtsaf, richting 
streekziekenhuis. U bevindt zich nu op de 
rondweg om Almelo. Deze weg blijven volgen 
tot u het BP tankstation ziet bij dit 
kruispunt linksaf • Zie verder punt 2. 



Met openbaar vervoer: 

Vanaf NS-station Almelo met de stadsbus 
naar de wijk Molenbroek. Uitstappen bij de 
halte Mttdtild linttbrdek sweg . Schuin tegenovet 
de bushal te staat een wegwi j zer, daarop 
staat ook "t Veurbrook vermeld. 



Prqgr< 



9:30 Zaal open met koffie 
10:15 Opening 

10:30 Lezing door Rinus Vleesch Dubois en 
Nico de Vries over CGA, Hercules, 
EGA en VGA; kort om de graf ische 
. kaart^ii, vQQr PC's en compati)?ift^. 
IB It tdiet itiemb's op prof essl^^tegl^ 
apparatuur. - ' 

11:30 Forum en markt ^ ^ . 

mogelijkheid om andermans systemen te 
bewonderen en Public Domain software uit 
te wisselen. Als extra atractie ditmaal 
demonstraties printontwerp met behulp van 
de computer*' W iH Mg# ajhateeiii zijn van 
harte iielk^« 

•;• lit ' . • •■■ ■ 

Het bestuur maakt u er nogmaals op attend 
dat het illegaal verspreiden van software 

t^^iit#M^ir!:ii liHex^iiiiin is. Wm §M:^ 



VAN DE VOORZITTB? 

HeLaas heb ik de bi j eenkomst ts l|ii#rip 

door omstandigheden gemist. 

Etc #ti«i b e g r e pen dm tifH^cmirt mm^w 

was, maar de kwaliteit goed. 

De komende bij eenkomst Is zoaLs vermeLd 

%e Almtlo. U doet het bestuur een groot 

genoegen door in groten getaLe de 

bijeenkomst te bezoeken opdat het 

Aiiiifliaff ven die dag near inijn MMiiilfig 

zeer interiMBtit 

Het onderwerp van de bljeenkcmffirt fw hat 
video gebeuren van de IBM machines en 
weL zp uitgebreid els mogeLiJk. Tevens 
ifrdarataunan wij dit onderwerp met 
p rof essi one Le apparatuur die (onder 
voorbehoud van . . .] ons ter beschikking 
wordt gesteld ifaor *'piep piep piep i.¥.^ 

Na de maand mei breekt de vakantie 
perl ode Los en zaL het bestuur 
tijdeLijk op halve kracht functioneren 
en van een weLverdiende vakantie 
genlatan. fk raken er wal op dat voor 
het zover is, u onze redaktie-man Gert 
van Opbroek zaL overladen met 
interessante kopij zodat hij zonder al 
te veel inspanning de mp KENNER kan 
afleveren bij onze drukker en zelf ook 
met zijn famine ken genieten van een 
vakantia^ lii|ilir zorgen oirar da koplj . 

Tijdens het doornemen van oude notulen 
die betrakking hebben op bestuursver- 
gaderlngen, ontdekte ik tot mijn 
verbazing dat ik daze zomer twaalf en 
aen half jaar in hat bastuur zit, 
waarven de laatste zeven en half Jaar 
els voorzitter. Tijdens die periode heb 
ik vele mensen ontmoet waaraan ik met 
plezier terug denk. Nog steeds heb ik, 
zowel privi als zakelijk kontakt met 
vele cLubLeden uit de beglii parlHii an 
wij verbazen ons steeds weer over het 
feit dat de club nog gezond is. Hoewel 
wij nu best wat meer nieuwe Ledan ktlnrian 
gebruiken die de club versterken met 
vooral die kennis die nodig is om de 
niauw Ingaa lagan koara tot aan ^^^i^ ta 
maken. Uiteraard gaat dat niet zonder de 
inzet van de leden zelf. Ik stel den ook 
mm^^ mm a| da toi^ailikomat eens aan 
kaninia of vriafidtlnj maa. 

Tot ziena op da bijaankomat in Atiaald. 



DQS65, 4Q track; em knpi«wrt>ip, 

Door: Nico de Vries 

Laatst moest ik voor mm D0S65 
gebruiker die allean ^ tvttbk drima in 
zijn system heeft, een floppy disk 
aanmaken. Mijn system heeft echter 
alleen 80 track drives. 

Nu kun je een nieuwe schijf pakken, 
deze met dubbel-step formatteren en 
verve Igens de files kopieren en deze 
schijf dan naar de gegadigde sturen. In 
theorie werkt dat wel: maar Murphy zegt 
van niet. De 40 track drive die zo n 
schijf gaat lezen, ziet maar een half 
spoor. Als de andere helft leeg is (dat 
zijn de on even tracks op een 80 track 
d^^va) J, dm lukt het Hear o ^mm wJLm 
er amere diata staat. . . . 

Toen kreeg ik een idee: Mijn AT-kloon 
heeft een (80-track) 1.2 Mbyte drive en 
een (40 track) 360 kbyte drive. Nu kan 
een PC geen D0S65 lezen, maar het 
programma COPYIIPC kopieert een 
willekeurige 360k disk zonder meer, 
zeker als het format ruikt naar een 
format (fat door een controller 
geschreven is, en dat is zo bij D0S65 
schigfjes. Dus: blanko disk in drive B: 
C360k) en de dubbel^^ DQS65 disk in 
drtro kz en getypt: WmlWS At 1: . 

• ' 't. 

En ja hoor: het werkt vlekkeloos! 



Het bulletin board* 

Zeals u waarschijnlijk wel weet, wordt er 
door de club een bulletin board beschlk- 
baar gesteld. Dit board (afgekort BBS) 
wordt bedlent door onze Sysop Jacques 
Banser die bovendien de penningmeester van 
v4# club is. 

U kunt het BBS bereiken als u beschlkt 
over de volf^y^te mkm^- 

1) Een computer met een communicat iepro- 
gramma; bi j voorbeeld Kermit , Astrid, 
Procomm of Telix etc* 

2) Een modem. 

3) Een telef bonaansiultttig. 

Nadat u het communicat ieprogramma opge- 
start hebt, zoekt u contact met: 

0 5 3-303902 

waarna u (hopelijk) conatact krijgt met 
het 6502 Info Board* U vlndt daar berich- 
ten en software voor alle mogelijke syste- 
men en k»llt %oi^*i^ berichten sturen 
naar mideren, hl^jirmTbeeld de redactie of 
van andete aiittiirs. 
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Programeren in Assembler (deel 2) 



In deel 1 heb ik een optelroutine behandeld die een getal uit geheugenplaats 
GETAL2 (op $0201) optelde bin het getal uit geheugenplaats GETALl (op $0200) 
en dan het resultaat w^^mwrn^-: im de geheiii^^mf tt^ de orglnele naam 

RESULT (ofh $0202). Ham fieheugexiplaatsen zljn allemaal slechts 8 bits 

breed dus dat betekent dat GETALl en GETAL2 tussen 0 en 255 kunnen liggen en 
om zulke kleine get alien op te tellen hebben we eigenlijk geen computer nodig. 
Ook zullen de bollebozen al wel gemerkt hebben dat bij bepaalde getallen het 
resultaat in RESULT niet meer kloft* Oat komt omdat ook RESULT maar 8 bits 
breed la en dan kan het volgende geheiftPi^^ 

Stel GETALl is 160 of $A0 en GETAL 2 is 170 of $AA. Vullen we deze getallen in 
op de bekende geheugenlocaties en starten we ons sublieme programma uit deel 1 
dan zal bij het bekijken van RESULT met de MONITOR het volgende verbi j sterende 

fetal zich uit de diepste spelonken van het geheugen van je D0S65 systeem via 
m lieeldbuls van je monitor een weg banen naar je netvlies om dliaar de 
Wlge^de afdruk te maken (raheuh) ; 

MQiI> f 0202 

0202 4A ; $AA = 74 (maar, maar..,DAT IS NIET GOEDII) 

Wordt het tijd om IBM te belJLen? Moet de SQldeerbout wprden opgewarmd om een 
glgMntis^he hardware f out te-fteTStelleii? tn n^ ^pftoe^^t^ Neen, 
driewerf neen, Ge kunt weer opgelucht adem halen. Alias laat zich eenvoudig 
verklaren door het feit dat de geheugenplaats RESULT slechts 8 bits breed is. 
De optelling GETALl + GETAL2 levert het getal 160 4» • ^® - 
schrijven we dit hexadecimaal uit dan komen we op 



Zoals je ziet gaat dat omrekenen door herhaald aftreklken van de grootst 

mogelijke macht van 16 totdat het resultaat 0 is. $14A is 9 bits breed en past 
dus niet in ons 8 bits geheugen, we zien dat in ons programma de 1 is weg- 
gevallen. Maar hoe kan onze slaaf nu weten dat deze situatie zich heeft 
voorgedaan m«a«w* hoe kunnen we ons programma zo maken dat dit overlopen van 
^8 i iftd telltje wmmM (Of zoals i# Vwmmm^ i^^^^m^^^^^mmtttk^^ 
gedetecteerd? 

Daarvoor dient nu het 'Carry" bit in het status register P, dit bit geeft bij 
een optelling aan of er zo'^n overflow is geweest en bij aftrekken of er 
''geleend' moest worden ("borrow" zoals de Fransen zeggen) • Door dus na het 
iS^tmiXmm test en of het bitje "1' is kunnen we die "overflow" situatie 

AmtrnM^wmm''' 0m eventueel ^^aiip^'l^ dat het resultaat niet betrouwbaar is bij|v« 
4mT een foutmeliing op het sdheirm. De gemakkelijkste manlet yn^ m €krrf tM 
Itsten zijn de "BCC" (Branch Carry Clear) en "BCS" (Branch Carry Set) 
Instructies. Het woord "Branch" betekent tak, vertakking, verder gaan in een 
andere richting. En dat is precies wat de processor doet bij deze instruct ies. 
Eerst wordt het carry-bit getest en afhankelijk van het resultaat wordt er wel 
of niet ^eem iB^wm^''m$M^^mmmi w^m^m Iiet programma vertakt zich wel of niet« 
let geheel laat zich goed beschrijven met de BASIC regels: 

IF (CARRY = 0) THEN GOTO (voor BCC) 

IF (CARRY = 1) THEN GOTO (voor BCS) 



330 - ( 1 X 16-2 - 1 3E 256) 
+ ( 4 X 16"1 « 4 X 64) 
+ (10 X 16"0 - 10 X 1) 



> 330 - 256 - 74 

> 74 - « ■ m 

> 10 - 10 » 0 



$I4A 
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Stel wi dat %t t^st waar Is dan moet de processor dus een sprong uitvoeren en 
nu wil ie dat best maar hoe ver en waar naar toe? Nu heeft de chipboer daar 
een aardige oplossing voor bedacht, die informatie vindt den 6502 op de 
geheugenlocatie direct achter de instructie voor een branch. Daai:iitJ noieit Am 
grootte van de spirpng aaiJgegeven door de onderste 7 bits van het getal en de 
tichtinc door bet Se Bit. Me spronglengte (door de Ftansen steevast 'offset' 
genoemd) is dus met een duur (Frans) woord een 8 bits signed (2's complement) 
number. Wat is nu de maximale sprong die onze 6502 kan uitvoeren, trouwens dit 
geldt voor iedere processor waarbij de offset is gegeven door een byte. Voor 
een positieve sprong geldt dat het 8e bit '0' is, het grootste getal wat we 
du8 fcutunen sc^^Jiimi Ips 

76543210 <— bitnummer 

01111 111 m $7f « 127 ' < , 

(Je ziet dat ik spreek over het Be bit toch is het gewoonte om het le feit te 
benoemen met nupmei: 0 (zeg 'bit nul') en bet 8e met uummer 7 (bit zeuven).) . 
De grootste TkegB^im% sprong Is dan dus --128 met onze 8 bits offset. Omdat dm 
6502 werkt met de 2's complement methode (zie ook KENNER 58, deel 1 ovmm 
getallen binnen de microprocessor van Gert van Opbroek) wordt dat dus: 

76543210 

10000000 • $80 * -128 

Nu Is dat uittellen van zo'n branch of relatieve jump (relatief omdat het 
berekende adres afhangt van de PC) een vak apart en eigenlijk heel vervelend. 
Maar gelukkig hoeven wij dat niet meer te doen want al heel snel hebben slimme 
jongens een programma geschreven dat die vervelendefMjls^lM^ s^ls 
opzoeken ii^ .d^, tabel, relatieve jumps ultrekenen e«d. voor ze opknapte. Ook 
Mj de DSSiS is Ed-fi bandig programma het heet AS en dat Is zeer kort voor 
ASSEMBLER (het Franse woord voor samenvoegen, monteren). Het grootte voordeel 
van werken in assembler is dat je een geheugenplaats een naam kunt geven en de 
opcodes gewoon in tekst kunt uitschrij ven, dus niet meer 8D 02 02 maar gewoon 
STA RESULT. Een tweede voordeel is dat Je je prograjmna's kunt documenteren 
$m gmmm tm im WtWR mmmmtaat aehter de i^nstnietCes hmt 

zmtten. lortom je p]fi%ra^iia''s zijn Itesbaiiirder^ 

WTt^MOum mxtiiikkellng 



We §m^ Qmj pmgramma uit deel 1 uitbreiden met een test op de overflow 
eoftMtie mm is^tten daarbij het resultaat op het scherm met wel of geen fout** 
melilmg. Daarbij gebruiken we 2 routines ult I>0S65 zelf t.w# x; . 

HEXOUTl print Accu in hexadecimaal 

PRINTl print string after call until <null> 

. • < -t . • ' ^ - ■ " • 

Beide routines zijn zeer eenvoudig te gebruikpii hebben als grote voordeel 
dat de waarde in de Accu niet wordt aangetast. 

In de rest van dit verhaal neem ik aan dat je weet hoe je met de EDITOR moet 
werken en de syntax van AS (ongeveer) kent. Kijk het anders nog even na in de 

bandleldii^ript^ i^iJ^ - ..- 
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D0S-6i CORMER 



Het f lowdlagram voor programma ontwikkeling met EDITOR en ASSEMBLER ziet er 



START (met f rlsse moed) j 



— + 



invoeren/wijzigen met ED 
in <file>.MAC 



vertalen met AS <file> | 



/- 



-\ 



/ AS fouten? \ Ja 

\ / > + 

\ / 

Nee ... 



I . M i j i ^ — ....I...,- — ... 

Zet pvi^kmmi in geheugen 
met LOAD <file>.BlN 



Initial! see:e pmsBmeters 

indien nodlg en start het 

programma met 

'G <adres>' (D0S65) of 

'E <adres>' (M0N65) 
— . 1- ^ . 



/- 



/ 
\ 



fouten? 



\ Ja 
/ > + 



Geef jezelf een schouder 
klop en neem een asplrlne| 



Het zal ledereen duidelijk zijn dat vooral die laatste comditie moeilijk te 
beoordelen is en de reden kan zijn voor lange nachtelijke sessies achter het 
toestenbord terwijl de radeloze programmeur er achter probeert te komen waarom 
zijn geesteskind maar niet wil doen wat hij dacht dat het zou moeten doen. Ik 
geloof trouwens niet dat ik overdrijf als ik beweer dat in de meeste 
programma's die laatste conditie niet goed is beoordeeld en dat er dus nog 
fouten ±u bet 'voltQoide' product zitten. De Fransen hebben een aardig woord 
voor deFgelijffee pirogrammaiimfce^s MW tiMmm^ 

[Er is een aardige geschiedenis aan de oorsprong van dat woord verbonden* In 
de allereerste computers werden honderden electronen buizen gebruikt en het 
geheel gaf dan ook aardig wat licht en warmte af . In de zomer zetten de 
operators dan ook meestal de ramen open omdat de airconditioners van die tijd 
dlpgNiMoende capaciteit hadden om het vertrek op temperatuur te houden, Nu 
waren al die licht jes voldoende om allerlei insecteii naar dat wonder lijke 
schouwspel te lokken met als gevolg dat er nogal eens een kortsluiting opttrHd 
in de computer wanneer een insect zich te dicht bij de electronenbuizen had 
gewaagd. Je ziet dus dat een BUG in eerste instantie een hardware probleem van 
computers was*] 
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Het ADD_8 
sublimiteit 



programma is echter BUG-free en getuigt van een genlalitWi^t 
en is van een zodanlge pure schoonheid dat ik het schrijven vm 
Jit artlkel ev^ heb i^iii^ ^iyNitbreken m mijn ymi emotles overgelopen gemoed 
me^ enigzlns tot rust te litten koflien*« 



Bfei prograaima In AS wordt (lirvoeren imt W In f ile ABi 8.KAiC>: 



I Fmrpose 



ADD 8. MAC 

Add^'two 8 bit numbers md ifb^ fe^ult on screen 
show tmftilng in case of overflow.' 



; vertel AS waar HEXOUTl begint 

; en hier H^lSri 

; vertel AS waar het prograpM %eg|jit 

; haal GETALl in A 

; zet de Carry op nul 

; tel GETAL2 bij A 

; zet het resultaat weg 

; het resultaat is goed^ gejen overflow 

; foutmelding 
5RFL0W DETECTED ',0 

; begin op een nieuwe regel 

; toon result ^ijyt ^ T 

; terug naiar iior %f TSeif'^ " | " 

; vertel AS waar de data staat 

; reserveer een byte voor GETALl 

t m mot getal2 

; en een voor RESULT 

; thats all f oUcsl 



HEXOUTl 


EQU 


$C038 


PRINTl 


EQU 


$C03B 




ORG 


$1000 


ADD_8 


LDA 


GETALl 




CLC 






ADC 


GETAL2 




STA 


RESULT 




BCC 


OK 




JSl 


PRINTl 




FCC 


13, 'WARNING, 


OK 


JSR 


PRINTl 




FCC 


13,0 




JSR 


HEXOUTl 




RTS 






ORG 


$0200 


GETALl 


FCB 


0 


GETAL2 


FCB 


0 


RESULT 


FCB 


0 




END 


ADD 8 



Het ADDJB programma kun je als volgt vertalem^ eii uitfiroktr^s^: 



$ AS ADD_8 
Pass 

Pass 2«.. 

Last assembled address: 
Errors detected: 0 



0202 



Als je andere resultaten krijgt heb je ergens een type fout gemaakt in de 
ADD__8.MAC file. Is het wel goed dan zie je dat er een file ADD_8.BIN is 
gemaakt door het AS programma. Deze file kun je in het geheugen laden met: 

$ LOAD ADD 8.B1N - ' ' 



Als je niet precies 
terecht komt dan kun je 



weet waar het programma stsrt of wma^r h^t ^genli|fc 
het MAP commando gebruiken: 



$ MAP ADD 8 .BIN 

1000-103C" 

0200^0202 

loot) 



eerste gedeelte (in dit geval programma) 
tweede gedeelte (in dit geval data) 
itart address 
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IQ)I^ is is est E3" 1^1^ 



$ MON ; ga in de MONITOR 

MON65 2.06 : ; . 

HaViSof t 



Rockwell &5€0£ 






MUM/ U 


1000 ; 


start de DISASSEMBLER 


JUUU 


AD 


UU UZ 


LuA 


pUZUU 


lUUJ 


1 Q 




LLC 




1 nn/. 
IUUh 


OU 


U 1 UZ 


ADC 


$0201 


1 nn7 


QT\ 

oD 


n 0 no 
UZ UZ 


CP A 

bi A 


9UZUZ 


1 nn A 
lUUA 


on 


on 




^ 1 nop 
9 1 UZO 








UDIv 




1 uur 


OD 


S7 .i l 


ORA 


$4157 


1012 


52 


41 


EOR 


[$4E] 


1014 


49 


4E 


EOR 


#$4E 


IQli 


47 


2C 


RMB 


#4,$2C 


1018 


20 


4F 56 


JSR 


$564F 


lOlB 


45 


52 


EOR 


$52 


lOlD 


46 


4C 


LSR 


$4C 


lOlF 


4F 


57 20 




#4, $57, $1041 


1022 


44 




??? 


1023 


45 


54 


EOR 


$54 


1025 


45 


43 




$43 


1027 


54 






1028 


45 


44 


EOR 


$44 


102A 


OD 


00 20 


ORA 


$2000 



Je berkent In de eerste yler liMStructles het progranuna ult deel 1 maar daarna 
i«gfnt het af te wijieen. Wie Men ti?o«lieMl'iftli:'ift.iiilk^^ \fmmtM^ 
verslikt op het stukje tekst dat we hebben lngeirei«nt» Een HE^IOfP wll In zo-iB 
geval meestal wel opheldering geven: \ 

M0N> H 1000,1020 

0 1 2 3 4 5 6 7., 8 .9.. A » Q. D E f 

1000 : AD 00 02 18 6B 01 02 SB 02 02 90 20 20 3B €0 0© 

1010 : 57 41 52 4E 49 j|i 47 2C 20 4F 56 45 52 46 4C 4F WARNING, OVERFLO 

1020 : 57 20 44 45 54 45 43 54 45 44 OD 00 20 3B CO OD W DETECTED 

Nu is snel duidelijk waarom het disassembleren zulke wllde resultaten gaf . 
Mitar goed, we gaan testen. Alleceerst weer 6EfALl en 6ifAL2 vullen: 

MON> @ 0200 

0200 00 34 

0201 00 12 

mi 00 00 

En starten maar: 
M0N> E 1000 

46 ; Is dat even luxe? We hoeven niet meer met de hand 

MQN> ; te kl.jken of het wel klopt. Maar nu met die andere 

; gecalit^ efi dan toch ttaar gelljk even kljken of bet 

; RESULT echt wel goed Is. 

M0N> @ 0200 

0200 34 AO 

0201 12 AA 
ii02 46 00 

M0N> E 1000 

IKMNlNG , OVERFLOW DETECf ED 
4A 

MOID ; Het (b)lijkt te werkenl 



u 



Allemaal leuk en aardlg zul je denken maar wat nu te doen als ik nu wil werken 
met getallen boven de 255? In dat geval gaan we het getal opslaan in meerdere 
geheugen locaties. Met twee locaties = 16 bits kun je al rekenen tot 65535, 
met drie locaties = 24 bits al tot 16777216!! Wil je ook negatieve getallen 
gebrulken dan is dat voor 16 bits van -32768 tot 32767 en met 24 bits voa 
-8388608 tot 8388607. In de meeste toepassingen in AS is 16 bits meestal rulm 
voldoende. Daarbij spreken we af dat het HIGH byte van het 16 bits getal 
altijd op de geheugenplaats na het LOW byte staat. We hanteren dan dezelfde 
notatie als de 6502 zelf doet bij 16 bits getallen (kijk maar in ons 
voorbeeld, eerst het LOW en dan pas het HIGH byte) . Je HOEFT dat natuurlijk 
te doen maar als je het jezelf 'vanaf het iMi^tt aiilieert d8& w^rit 1^ 
van2elf . Trouwens AS neemt ons dat ondi^ren al INlteien door gebruik te 
maken van de FDB instructie. 

We gaan nu ons ADD 8 programma uitbreiden voor 16 bits getallen. Gebruik 
COPY ADD_8.MAC ADD_1F.MAC en EDIT de onstane ADD_16.MAC file als volgt: 



1 File : ADD I6.1fA€ 

; Purpose : Add~two 16 bit numbers and show result on seresft 

; show warning in case of overflow. 



HEXOUTl EQU $C038 ; vertel AS waar HEXOUTl begint 

PillllTl W IC03B ; en hier begint PRINTl 



ORG 



$1000 



vertel AS waar het programma begint 



ADD 16 



LDA 
CLC 

mi 

STA 
LDA 
ADC 
STA 
BCC 
JSR 
FCC 
JSR 
FCC 
LDA 
JSR 
LDA 
JSR 
RTS 



GETALl ; haal LOW part van GETALl in A 

•' 'i zet de Carry op nul -i' 



OK 




; terug naar HON of DOS 



0R6 



$0200 



9 



vertel AS waar de data staat 



GETALl 

GETAL2 
RESULT 



FDB 
FDB 



0 

0 
0 



reserveer een WO0ia)«16 bits voor GETALl 

en een voor GETAL2 
en een voor RESULT 



END 



ADD 16 
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thats all folks! 
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Om het programma te testen blljven we nu ^iior de ^raxtderlng eens in BOS ^ 
gebruiken daarblj de volgende commandoes: 

$ AS ADD_16 

Pass 1 • • • , ' , , 

Pass 2... 

Last assembled address: 0205 
Errors detected: 0 
$ LOAD ADD 16. BIN 

$ MEMFILL 11200,0200, AO . . 

$ LC 0201,0201,01 
$ LC 0202,0202,66 
$ LC 0203,0203,09 
$ G 1000 

0B06$ " ' 

We hebben GETALl geyuld met $01 AO en GETAL2 met $0966, het yejiwltaat Is |0BQ6 
en dat klopt. De e^^ty die is oni^msn bij het optellen ^^ran $A0 eti f€6 Is 
inderdaad meegenomen bij het optellen van $01 en $09. We zi en dat er nog een 
klein schoonheidsf out je in het programma zit, de DOS65 prompt staat direct 
achter het resultaat. Bij gebruik van MON65 gaat dit wel goed omdat daar de 
prompt begint met een CRLF. Voor de perf ectionisten onder U vermeldt ik daarom 
de CRLF routine van DOS65 die begint op $C02F» kiii je voor het 

verlaten van het ADD_8 en ADD__16 programma uitvoeren om de cursor altijd aan 
het begin van de regel te krijgen. 

Probeer zelf eens een 8 of 16 bits af trekroutine te schrijven. Gebruik 
hiervoor de instructie ^SBC" en bedenk hierbij dat de carry hierbij de functie 
van 'lenen" of 'borrow'' heeft en dus vooraf '1' moet zijn (gebruik SEC) om 
correcte result^en te lj;,}:i4gen» jls er dan daadwerkeiijk zp'ja rb^rj'ow'' ge^^ 
dan is de can^ m m Wm mmmmM^ *0'* ©e'-lii» mm^^^m^mMj^ ■ymM 
gedaan met 'BCS*^. Veel succes! 



Nogmaals: CRTC.DOC. 

In de 6502-Kenner nummer 56 beschreef 4m^^ A^nser, op^|i^§|4^ ZS^ 4^ 
waarop een monitor met een 9-pens •^llI^lBiimsiuitlng'' op ii IWHk^^ mm 
Elektuur kon worden aangesloten. 
Hierin ben ik het volgende foutje tegengekomen: 

In regel 6 iftiiSi 4Ui wmmM fcSi TOB^Hiipaaal BSmmmk ^m^ ^mn 12 van 

mm zijn: Als eeiimi het flWi©j-s4gnaal afaemen van pen 6 van IC3 (N22) en 
deze aansluiten op pen 7 van de 9-pens atekker* 

Tot slot de volgende opmerking: 

Om instabiliteit te vermijden is het verstandig om pen 8 van 1C4 buiten de 
ICJ^voet te MLf en« 

Ivert van Kan. l . . l 
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i^li»GEME£N 



Getallen (Deel4)« 

Door Gert van Opbroek 
Bateweg 60 
2481 AN Woubrugge 

Inleidlag* 

Ka het in de voorgaande af levering gehad 
te hebben over het opt e lien en aftrekken 
van floating point getallen gaan we in 
imm. miim^mMlng verder met vermenigwlit-" 
gen en delen* Ook in deze af levering staan 
bijbehorende subroutines voor een 6502- 
systeem. (De routines zijn m.i.v. vandaag 
ook beschikbaar op het bulletin board). 

Misschien is het wel aardig te vert e Hen 
hoe deze 8eM# "iigmiiS^^' t^f 
is. Welnu, ik heb, jaren geleden, eens een 
set procedures voor floating-point getal- 
len overgetikt uit een boekje met program- 
ma's voor de 6502 [!]• Dit waren routines 
voor vier byte getallen (dus net zo als 
iJEEE single precision). Bovendien was ik 
iti die tijd zeer veel bezig met het pro- 
grammeren in Forth en miste daar in de 79- 
standaard versie de mogeli jkheden van 
floating point. Ik ben toen bezig geweest 
In de assembler blj Forth eem set routines 
te iiiiiieti* ti^ itmmm§ ^^m^min ^B&n eigen 

formaat van 6 byte en kennen een zeer 
grote range en tamelijk grote preciesie. 
(Voor de liefhebbers heb ik deze routines 
ook op het BBS gezet, evenals de bijbeho- 
rende asBeiiikler;^ 

Slt£ $m^bmm.. msk i^dxukken wm de getallen 
kan verder In elTce basis, dus in decimaal, 
hex, binair etc. Nadeel is echter dat 
vooral de af drukroutine tamelijk traag is. 
TM %pi ftit 41t project gestopt omdat ik 
andiiire SMtmwmwmB (68000) ki^iif ^n. omdat 
;ket mlj toeti iaiei!"''itj1feiii^lt^ 
de functies zoals sinus, cosiaua, eiqponent 
etc. te bemachtigen. 

Daar ik al het §§n en ander met floating 
l^oifit gediira fi^ ifen omdat ik het ontbz^iip^i 
van floating point in DOS-65 ^CT een gemis 
vindt, heb ik medio vorig jaar besloten me 
eens bezig te gaan houden met floating 
point routines. Nadat ik het besluit geno- 
mem had was het duitse tijdschrift MC, 
waarof ik geat^onneerd ben, zo vriendelijk 
h^tE^elfie ook te doen zodat ik een groot 
van deze artikelenreeks op de artike- 
len in mc [2..6] kan baseren. MC heeft ook 
de routines voor optellen, aftrekken, 
vermenigvuldigen en delen in assembler 
m»m 8088 eit 2i§ ge|nit^ileeeti« l&ar 

£k behalve in 6502-assembler ook goed 
tfeiils ben in 68000-assembler was het om- 



mmtm- 4m relatlef mmimMM^ ^® g ef iibll- 
cfeerli^'IfWiTlSg^ ^13* ffW Mf Vtlf^ l ith 
6§n op §§n conversie van de routines voor 
de 68000. Het gevolg is echter wel dat de 
6502-routines op enkele onderschikte pun- 
ten wat geoptimaliseerd zouden kunnen 
worden. Am laat ik' 't^lfeer graag over aan 
de toekomstige gebrulker* • ^ 

MC plaatste ook de inlees- en afdrukrou- 
tines, echter in "C^ zodat de conversie 
hiervan naar 6502-a88embler mogelijk wat 
problematischer zal gaan worden. U kunt er 
echter van uit gaan dat ze zeker in 6502 
assembler en mogelijk ook in 68000 assemr 
bier gemaakt zullen gaan worden. 

Ik denk dat de airtikeleijreeks als volgt 
iHfe^der gaatf ^^In ^1* iitiiitet^ fe^i^ de rou- 
tines voor vermenigvuldigen en delen, in 
het volgende nummer de inlees- en afdruk- 
routine waarna in het daarop volgende 
nummer een rekenmachine gemaakt zal gaan 
worden. Daarna wi 1 ik eigenlijk de rou- 
tines voor de diverse functies (SIN, COS, 

EXP, LOG ) behandelen alleen heb ik 

onvoldoende gegevens over de polynomen met 
behulp waarvan ze uitgerekend worden. Als 
er mensen zijn die mij aan deze polynomen 
kunnen helpeipi, jfill^en die mij dan dejsf 
iufbrmatie bp*tt3fr#nf ' 

Een mogelijke referentie zou [7] kunnen 
zijn wie helpt? 

¥enii»iigimldlgeii« 

Het vermenigvuldigen (en ook het delen) 
van floating point getallen lijkt, in 
tegenstelling tot optellen, zeer veel op 
het vermenigvuldigen van gehele getallen* 
Ook in het decimale stelsel is dat z.ol» 
• fetjk maar tiaair'tiet if a Igett^e ' "^mii^m^Mt- ^ 

1,15E4 * 2,21E3 = 2,5415E7 

Het rekenschema bestaat uit vier stappen 

i«^e«n 1 • . ■ • 

1) Bereken de nieuwe exponent. Dit is de 
som (signed) van de exponenten van de 
operanden. 

2) Bereken het integer-product "wmm dm 
man^issa^a dus in het voor&ieei^ 115 ^ 
220. Van het resultaat komen evenveel 
cijfers achter de komma als de operan- 
ds tesamen hadden* 

3) Normeer het resultaat zodanlg dat er in 
de mantissa weer i§n cijfer voor de 
komma staat. 
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4) Bepaal bet teken van het resultaat; dlt 
is een ''•f als van de operanden de 
tekens gelijk zijn en een '-^ als ze 
ogelijk zijn (dus een exclusieve OR). 

Kijken we nu naar de assembler-listing, 
dan ktiti^tien we zlen dat dit rekenschema ook 
hier gebruikt wordt. Er zijn echter enkele 
bijzondere gevallen die behandeld moeten 
worden. In de eerste plaats is dat het 
geval dat §e^n van de operanden niet in 
het genormallseerde formaat staat maar zo 
klein is dat ze in het gedenormaliseerde 
formaat staat • Hiervoor wordt een correc- 
tie uitgevoerd door van een operand in het 
genormaliseerde formaat de exponent te 
verlagen (regel 404 t/m 409 )• 

Bl j de berekening van de nieuwe exponent 
moeten we na de optelling er rekening mee 
houden dat de exponenten een bias van $7F 
kennen omdat ze in het zogenaamde signed 
magnitude formaat staan waarbij $7F bete- 
kent dat de exponent 0 is. Bij een recht 
toe rechtaan optelling is het resultaat 
dus 127 te groot. Omdat er echter al een 
klein voorschotje op het normaliseren 
genomen wordt, wordt er geen 127 doch 
slechts 127-3 = 124 afgetrokken* Krijgen 
we na deze correctie een resultaat kleiner 
dan -24, dan is zeker dat het resultaat 
kleiner is dan het kleinst mogelijke getal 
dat we in 4 byte weer kunnen geven(under- 
flow), en zal het resultaat als 0 (nul) 
weergegeven worden. 

Na deze bewerking wordt de nieuwe mantissa 
berekent met behulp van een vermenigvuldl- 
gings-routine volgens het algorltiaye uit 
deel 1. 

Alvorens over te gaan tot het normeren, 
wordt bij het resultaat 1/2 LS bit opge- 
teld voor het afronden to nearest. (4/5 in 
het dagelijks leven). Op dit moment zijn 
alle resultaten met een exponent 0 genor- 
jOieerd; dit zijn de gedenormaliseerde ge- 
tal len* Van de overige getal len wordt de 
mantissa naar links geschoven en de expo- 
nent verhoogd net zo lang totdat we een 
exponent > 255 (overflow) of een MS-bit 1 
hebben. Resultaat 0 en overflow worden 
af zonderlijk (00 00 00 00 reap. 00 00 00 
FF) behandeld* 

Als laatste wordt het teken bepaald en 
wordt het resultaat op de stack geschre- 
ven* 



Delen* 

Als we twee floating point getal len moeten 
delen, dan moeten we er in de eerste 
fla^tl WBW^§^ dat beide getal len 

evenveel cijfers voor de komma fi%febteii. q£ 
dat beide getal len evenveel nulli^ t«iai«ta 
het eerste cijfer ongelijk 0 en de l^lMfti 
hebben dus: 

12,34 / 0,032 

^ipBl on^ezet worden naai:: 

.ltt34E0 / 32E-3 

of maar 

0,01234E3 / 0,032EO ♦ : . 

of naar 

1,234E1 / 3,2E-2 , . . u ^ ; 

Daarna wordt de exponent van de tweede 
operand afgetrokken van die van de eerste. 
Dit is voor al snog de exponent vian hat 
quotient • 

Hierna kan men gaan delen. In het resul-^ 
taat komt de komma meteen na het eerste 
cijfer (in het voorbeeld een 0) te staan. 
Evenenals bij vermenig vuldigen is het 
teken de exclusieve OR van de tekens van 
dii ©feranden. Het (ongenormeerde) resul- 
tiyadt van het voorbeeld is 6vm r r 

0.3843E3 

In het binaire geval gaat het niet anders* 
Ka mmmctie van de giti^i«illii#e^tita 
getal len worden ook hler de exponenten vam 
elkaar afgetrokken. Daar de exponenten met 
hun bias van 127 van elkaar afgetrokken 
worden, moet deze er in het resultaat weer 
bij worden opgeteld. Alles wat hierna een 
^l^iMigiit kleiner -2^ beef t,. leldt tot 
tmierf loif en geef t d^i lis tf^sialtii^ 9* 

Als de deler gelijk is aan 0, dan is het 
resultaat Qneindig mm lilt worAtI 
weergegeven. 

Sat de berekening van de nieuwe exponent, 
worden de mantissa's zodanig geschoven dat 
het MS-bit 0 is. Hierna wordt de deler 
naar links geschoven totdat het volgende 
bit 1 is. V##ir elke verschuiving wordt 
hierblj de exponent van het resultaat met 
I 



IS 



Alyorens de deling te start en, wordt bij 
de exponent van het resultaat 25 opgeteld. 
Dit kan beschouwd worden als voorschot op 
het normeren. 

Het algoritme vaor toet MJLm is 

deeltal afgetrokken. Lukt dit, dan wordt 
er in het resultaat van rechts af een bit 
1 geschoven, lukt dit niet (resultaat < 0) 
dan wordt het deeltal weer teruggehaald en 
wordt er in het resultaat irarn ir%elit# mf 
een 0 geschoven. Aanslultend wordt het 
deeltal naar links geschoven waarbij de 
exponent van het resultaat met 1 verlaagd 
wordt. Bij deze verschuiving wordt een bit 
0 in het deeltal geschoven.Dit proc€^ f#&t 
d^Qr tPtdat er aan de linker kant een 1 
tfit het i^aniltaat geschoven wordt of tot- 
dat de exponent van het resultaat 0 gewor- 
den is. 

Het afronden, normaliseren en bepalen van 
teii viiorteken pelieiurt met routines uit de 

TmBtsmtm 

Haast de geferuikeli|ke getall#ft zijn er 
H^rnr ]|r0#t #ittS*i tpeciale gevallen. 
lukefe ^an deise-^fifpltl^ gevallen zijn ook 
in de artikelen van mc beschreven. Deze 
gevallen zijn in de volgende tabel 
peergegeven. 

Voor optellent 

$3f 80 00 00 + $40 00 00 00 = $40 40 00 00 
Dit is 1 + 2 met als resultaat 3. 

$00 fO 00 00 + $40 00 00 00 = 1^0-70 GO GO 
Hierbij wordt MJ mm fclein, genormali- 
Iriferd getal'lief kle^inst genormallseerd 

getal met negatief teken opgeteld. Klit 
resultaat is gedenormaliseerd. 

$7f 00 00 00 + $7e ff ff f£ = $7f 80 00 00 
m gttlKl^Itii niet tesultai^t 

It* 

fmt^ vem^nlgvuldigeii: 

$7f 7f ff ff * $00 00 00 03 « $35 bf ff ff 
Het grootst mogelijke getal maal seeir 
klein (gedenormaliseerd) getal. 

$00 80 00 00 * $3f 00 00 00 = $00 40 00 00 
Het kleinste genormaliseerde getal maal 
0.5. 

$40 00 00 00 * $7e ff ff ff = $7f 7f ff ff 
Een groot getal wordt met 2 




vermenigvuldigd waarbij het resultaat het 
grootst mogelijke getal is. 

Voor delen: 

$3f 80 00 00 / $00 00 00 00 = $7f 8i p[ i|. 
1/0 geeft als resultaat oneindig. 



S41 dO 00 00 / $40 eO 00 00 

It/7 ^ -^VT .S 



$40 6d b6 db 



$00 00 00 03 / $lf ff ff ff = $15 40 00 01 
Een zeer klein, gedenormaliseerd getal 
delen door een klein, genormallseerd 
getal. 

Tenslotte. 

In deze aflevering hebben we ons bezig 
gehouden met de routines voor vermenigvul- 
digen en delen. In de inleiding heb ik al 
aangegeven dat de in volgende aflevering 
(ijs en weder dienende) we ons bezig zul- 
len gaan houden met het inlezen en afdruk- 
ken* 

De bijgevoegde programmas zijn geschreven 
op een Junior met PROTON-Senior DOS. Ze 
zouden zonder al te grote wijzigingen op 
elk ander 6502-systeem moeten kunnen 
lopen. Zo niet, dan hoor ik dat graag 
zodat we hiervoor een oplossing kunnen 
zoeken. Voor mensi^n die geen 6502-systeem 
gebruiken teop tt' iif de listings dermate 
veel commentaar bevatten dat de algoritmen 
toch duidelijk naar voren komen. Zoals 
reeds gezegd, bevatten de referenties 
[2..6J dezelfde routines voor 68000, 8088 
en Z8G. 

Referenties. 

1: Findley: 6502 Software Gourmet Guide 

And Cookbook 
2: Hagen VVilzke: Fliesskomma-Aritmetik und 

IEEE Specification; mc 10/88 biz. 123 
3: Hagen Vttlzke: Fliesskomma-Aritmetik wnd 

IEEE Specification; mc 11/88 biz. 78 ^ 
4: Hagen Vttlzke: Fliesskomma-Aritmetik und 

IEEE Specification; mc 12/88 biz. 91 
5: Hagen Vttlzke: Fliesskomma-Aritmetik und 



*'Aritmetik und 

IEEE Specification; mc 2/89 biz. 65 
H. Kremer: Numerische Mathematik fuer 
Hochf requenz- und Elektrotechniker , Id 
2, Muenchen 1978 
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0324 
0325 
0326 
0327 
OS^i 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 

0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 

0358 
0359 
0360 
0361 
0362 
Q343 

mm 

0365 
0366 
0367 
0368 

mm 

0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 

mm 

0382 
0383 
0384 
0385 



0351 
0351 
0351 
0351 
6§5I 
0351 
0351 
0351 
0351 
0351 
0351 
0351 
0351 
OOOC 
OOOC 
OOOC 



OOOC 
OOOD 
0015 
0019 

iSM 

0351 
0351 
0351 
0351 
0351 
0351 
0351 
0351 
0351 
0352 
0354 



0357 

0357 

0359 

035B 

035D 

035D 

0351) 

03 5D 

035F 

0361 

0362 

<53«4 

0365 

0366 

0368 

0368 

0368 

0368 

036A 

036C 

036D 

036F 

0370 

0371 

0373 

0373 

0373 

0373 



68 

8500 

68 

8501 

A900 
850B 
8506 



A207 
A004 
68 

9500 
88 

D0F9 



A202 
A004 

68 

9500 

E8 

88 

Mft 



.OPT LIST 

» ********************************************************** 
• 

} Floating point package for the 6502 microprocessor Part 11 

*, 

; Written by G. van Opbroek 

; on JUNIOR with Proton Senior DOS 

; (c) Copyright 1989 Kim Gebruikerselitli Sederland 

i 

• 

; Note: Fart II should be included behind line 322 of part 1 
•• 

.EXl 

9 

} Define warkspace on page z^m 

X Bit ecWhteir 



COUNT 
WORK 



.Ml 



; Floating point multiplication: 

; baaed on: Hagen Volzke Fliesskomma - Arithmetik tmd 

lEEE-Spezif ikation 



9 
i 

FHUL 



mc 11/88 page 78 



PLA 

STA RETADD 
FLA 

tii.i^^rAEn}%i 

LDA #0 

STA S1GN2 
STA SIGNl 



J &et second parameter from stack (4 byte) 



; Get parameters from stack 

; Get return address and save it 



FMULPl 



LDX iKmm 

LDY H 
PLA 

STA $0000, X 

tm 

DEY 

BNE FMULPl 



; Zero-page relative aASmM 
; 4 byte 

; Get byte from stack 
; Store byte 



; Get first parameter from stack (4 byte) 



LDX #<MAN1 
LDY #4 

PLA 

STA $0000, X 

INX 

DEY 

BNE FMULP2 



; Zero^p^e relative address 

; 4 byte 

; Get byte ftom stack 

; Store byte 



18 



; Rotate operands to get exponents in one byte 
CLC 
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6502 Floating Point Package PROTON 650X ASSEMBLE?L V4.4 PAGE: 0002 



0386 
0387 

0388 
0389 
0390 
0391 



0393 
0394 
0395 
0396 
0397 
0398 
03f9 
0400 
0401 
0402 
0403 



0405 
0406 
0407 
0408 
0409 
0410 
6411 
0412 
0413 
0414 
0415 

mm 

0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 

mm 

0429 
0430 
0431 
0432 



0374 

037* 

0378 

037B 

037B 

037C 

#§7E 

0380 

0381 

0383 

0383 

0385 

0387. 

038A 

038A 

038B 

03 8D 

038F 

039i 

0392 

0393 

0395 

0397 

0398 

039A 

039A 

039C 

039E 

03A1 

Q3A1 

03A1 

03A1 

03A2 

03A4 

03A6 

03A8 

03AA 

03AC 

03AE 

03AE 

03AF 

03S1 

03B3 

03B5 

03B7 

03B9 

03BB 



0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 

0446 
0447 



03BB 
03BB 
03BB 
03 BD 
03BF 
03C1 
03C3 
03C6 
03C6 
03C6 
03C6 

mm 

03C6 
03C6 



A202 
18 

A505 
f)0O3 

38 

C605 

A204 
A003 
200702 

18 

A207 
A005 
200002 

18 

A50A 
F003 
38 

C60A 

A209 
A003 
200702 



18 

A505 
650A 
8513 
A900 
6900 
8514 

38 

A513 
E97C 
8513 
A514 
E900 
8514 



1009 
A513 
C9E7 
B003 



LDX #<MAN1 
LDY 

JSR ROTLEF 

I • 

CLC 

LDA EXPl 
BEQ fMOtl 

SEC 

DEC EXPl 
FMULl LDX #<MANl+2 

im #3 

JSR B0TRI6 

CLC 

LDX #<MAN2 
LDY #5 
JSR ROTLEF 

* CLC 

LDA EXP2 
BEQ FMUL2 
SEC 

DEC EXF2 

FM0L2 LDX #<MAN2+2 

LDY #3 
JSR ROTRIG 



CLC 

LDA EXPl 
ADC EXP2 
STA WORK+6 
LDA #0 
ADC #0 
STA WORK+7 

SEC 

LDA WORK+6 
SBC |J^7-3 

STA wmm 

LDA WORK+7 

SBC #0 

STA wm*7 



Calculate the iifiir eaq>onent 



6et zero-page relative addreiS! ilf^ HANI 
Rotate 5 byte, result is: 

nmiiniiiiniiifn O imnimniniT^nyim |j | p| j|^||B|jip| ^^ 0^(pi^'f^|^^€t 0000 

o 005 

liqponent zero? 

Yes, denormalized, Ror in 0 

No, Ror in 1 
Compensate exponent 

Get zero-page relative address 

mnwiiBimitBBBtt iHiaiMifflnimma miBmiiiifttBia eeeeeeee OOOd 

Get zero-page releative address of MAN2 

Hot ate 5 byte, result is: 

iiimiimmimmO iiii.v«mu.„.u.L«. a^rom eemmmm 

Exponent zero? 

Yes, denormalized, lor in 0 ' 
No, Ror in 1 
Compemsate exponetit 

Get zero-page relative address 
Rotate mantissa 

mmnmmmmun mmmmmmmm inmmmmmmm eeeeeeee 0000 

ems 



Get first exponent 
Add second one 
Store low byte 
Clear mcGmmlatoT 
Get carry 
Store high byte 

Now we have two times the bias 
correct this ^ 
Subti^^c^ bias - 3 

High byte 
Subtract borrow 



I if the exponent < ^25 !il have underflow 

; Result will be zero in thiB case 



BPL FMUL3 
LDA WORK+6 
CMP #$E7 
BCS FMUL3 
JMP MULO 



High byte >» 0 — > No i^iei^loir 
Get low byte 
< -25? 



; Yes, result Is ssero 
; 24 Bits integer multiplication 
FMUL3 



Clear workspace 
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6502 Floating Polttt fackiige FSOfOH 63@K ASSHtBUH MA fibSEi 000$ 



0448 


03C6 


A900 


LDA #$00 




0449 


03C8 


A206 


LDX #$06 


; We use 6 byte in the workspace 


0450 


03CA 


950C 


FMUL4 STA WORK-1 ,X 


0451 


03CC 


CA 


DEX 




0452 


03CD 


DOFB 


BNE FMUL4 




0453 


03CF 








0454 


03CF 


A218 


LDX #24 


; 24 Bits multiplication 


0455 


03D1 


860C 


STX <mm 




0456 


03D3 




* 




045f 


03D3 


MOf 


MLOOP LDX I01AN2+2 


; Rotate right mantissa 2 


0458 


03D5 


A003 


LDY #3 


; Rotate 3 byte 


0459 


03D7 


200702 


JSR ROTRIG 


0460 


03DA 




• 




0461 


03DA 


9 OOF 


BCC ML00P2 


; Last bit clear — > continue 


0462 


03DC 




.'■« 




0463^ 
0464 


03PC 




; Last bit was set: Add mantissa 1 to result 


03DC 








0465 


03DC 


18 


etc 


; W^mm 'mww for addition 


0466 


03DD 




• 


0467 


03DD 


A003 


LDY #3 


; Add 3 byte of mantissa 1 


0468 


03DF 


A200 


LDX #0 


mm 


0311 


isio 


mOCtl LDA W0RK-l-3,X 


; Start at fourth byte 


0470 


03E3 


7502 


ADC MAN] ,X 


0471 


03E5 


9510 


STA W0RK+3,X 




0472 


03E7 


E8 


INX 




0473 


03E8 


88 


DEY 




0414 


Mm 


jmm 


BNE MLOOPl 




0475 

0476 






9 

; Rotate the result right; 


shift in the carry 


0477 


03EB 




; of the addition 




0478 


03EB 








0479 


03EB 


A212 


ML00P2 LDX #<W0IK+5 


; Start at MS byte v 


0480 


03ID 


AD06 


WIM. 


; Rotate 6 bytes 


04»1 


WW 


IfPOl 


JSR ROTRIG 




0482 


03F2 




• 




0483 


03F2 




; Decrement the counter and continue 


0484 


03F2 








0485 


03F2 


C60C 


DEC COUNT 




u*i86 


0iiF4 


DOPD 


BNE tO^OOF 


; If counter > 0 then continue 


0487 


03F6 




• 




0488 


03F6 




; Test mantissa for zero result 


0489 


03F6 








0490 


03F6 


A206 


LDX #6 


; Test 6 bytes 


0491 


03F8 


B50C 


ML00P3 LDA WORK- 1 , X 


; Get byte 


0492 


03FA 


D006 


BNE FMULNZ 


; Not zero 


04f3 


03FC 


CA 


DEX 




0494 


03FD 


D0F9 


BNE ML00P3 




0495 


03FF 


4C9B04 


JMP MULO 




0496 


0402 








0497 


0402 




FMULNZ .V 




mm 

0499 


mm 

0402 




» 

; Exponent of result <-24 


— > underflow 


0500 


0402 




; Exponent of result < 0 


— > denormalised exponent t;m 0 


0501 


0402 




1 - - 




0502 


0402 


A514 


LDA WORK+7 


; MS byte of exponent 


0503 


0404 


1017 


BPL FMUL6 




0504 


0406 


A513 


LDA WOiaC-l-6 




0505 


640t 


CfE^ 


CMP #$E8 


; < -24 ? 


0506 


04 OA 


B003 


BCS FMUL5 




0507 


040C 


4C9B04 


JMP MULO 


; Underflow 


0508 


040F 








0509 


040F 




FMUL5 





19 



6502 Flostlng Point Package PROTON 650X i^SEMBLBR V4.4 PMB: 0004 



0510 


040F 




9 








0511 


040F 




; Rotate 


right mantissa until exponent - 0 


0512 


040F 




ML00P4 








0513 


040F 


18 


CLC 


• 
9 


Shift in zero 


mu 


0*10 


Ml 2 




LDX #<W0ItK+5 


9 


Start at MS byte 


0515 


0412 


A006 




LDY #6 


> 


Shift 6 byte 


0516 


0414 


200702 




JSR ROTRIG 


9 


Rotate right 


0517 


0417 


E613 




INC WORK+6 


9 


increiaeiit gi^ponent 


0518 


0419 


30F4 




BMI ML00P4 




0519 


041B 




• 
9 








0520 


041B 


E614 




INC WORK+7 


• 

9 


MS byte was $FF; clear it« 


0521 


041D 




• 






0522 


041D 


A514 




LDA WORK+7 


• 

9 


E3cponent mm t 


0523 


041F 


D004 




BNE FMUL7 




0524 


0421 


A513 




LDA WORK+6 






0525 


0423 


FOIE 




BEQ MROUND 


m 
9 


Yms round result 


0526 


0425 




9 






0527 


0425 




; Rotate 


result left until MS bit - 1 


0528 


0425 




; or exponent = zero 






0529 


0425 




FMUL7 








0530 


0425 


A20D 


LDX #<WORK 


9 


Start at LS byte 


0531 


0427 


A006 




LDY #6 


9 


Shift 4 byte 


0532 


0429 


200002 




JSR ROTLEF 




0533 


042C 


BOOE 




BCS FMUL8 


9 


Carry set — > normalized 


0534 


042E 










0535 


042E 










0536 


042E 




• 

t 








0537 


042E 


A513 




LDA HORK+6 






0538 


0430 


E900 




SBC #0 


• 

9 


Carry mm eliei^l 


0539 


0432 


8513 




STA WORK+6 




0540 


0434 


A514 




LDA WORK+7 






0541 


0436 


E900 




SBC #0 






0542 


0438 


8514 




STA WORK+7 


9 


Carry is set 


0543 


043A 




9 






0544 


043A 


il^El 




BCS FHUL6 


; 


lest i^ouent bmA itart again 


0545 


043C 




«. 






0546 


043C 


A212 


FHUL8 


LDX #<W0RK+5 


9 


We have rotated one to wmM 


0547 


043E 


A006 




LDY #6 


9 


correct 


0548 


0440 


200702 




JSR WTMG 






0549 


0443 




f 








0550 


0443 




; Round the re stilt Isf mM±ug 


$00 $00 $00 $80 


0551 


0443 












0552 


0443 


A202 


MROUND 


LDX #2 


• 
9 


Start at the third byte 


0553 


0445 


A004 




LDY #4 


i 


Four bytes 


0554 
0555 


0447 
tWt 


A980 
18 




LDA jt^$80 






0556 


044A 


750D 


ML00P5 


ADC WORK.X 






0557 


044C 


950D 




STA WORK.X 






0558 


044E 


A900 




LDA #$0 




Clear accu 


0559 


0450 


E8 




INX 


9 


Next byte 


0560 


0451 


88 




DEY 


f 


fie^teMiU^ eounter 


0561 


0452 


D0F6 




MB ML00P5 






0562 


0454 




* 








0563 


0454 


9014 




BCC FMUL9 


• 


If carry is set then 


0564 


0456 


A212 




LDX )'/<W0RK+5 


• 

9 


Rotate mantissa right 


0565 


0458 


A004 




LDY #4 


• 

f 


f our hf tm 


0566 


045A 


200702 




JSR ROTRIG 






0567 


mm 




* 








0568 


045D 


18 




CLC 






0569 


045E 


A513 




LDA WORK+6 


9 


Increment exponent 


0570 


0460 


6901 




ADC #1 






0571 


0462 


8513 




STA WORK+6 







m 



mmm 



6502 Floating Point facfca^ mmm ffOX i^flMK-iit f4,4 PASl! ©00S 



0572 
0573 
0574 
0575 

mn 

0577 
0578 
0579 
0580 

m&i 

0582 
0583 
0584 
0585 
0586 
0587 
0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
6605 
0606 
0607 
0608 
0609 

0611 
0612 

0613 
0614 
0615 
0616 

mif 

0618 
0619 
0620 
0621 
0622 
0623 
0624 
0625 
0626 
0627 
0628 
e62# 
0630 
0631 
0632 
0633 



0464 
0466 
0468 



046C 
046E 
0471 
0471 
0473 
0475 
0477 
0479 
047C 
047C 
047E 
0480 
0482 
0482 
0484 
0486 
0489 
0489 
048B 
048D 
048F 
0490 
0491 

0494 
0494 
0496 
0497 

mm 

049A 
049B 
049B 
049B 

§4fi 

049B 
049D 
049F 
04A1 
04A2 
04^4 



04A7 
04 A7 
04A7 
04A7 
04 A9 
04AB 
04AD 
04AE 
04 BO 
04B2 
04fi4 
t4B7 
04B7 
04B7 
04B7 
04B7 



A514 
6900 

851*..: ■ ^.. • 

A514 mms 

F003 
4CA704 

A513 FMULIO 

A210 
A003 
200002 

A506 ImUI^ 

450B 

8514 

A214 
A005 
200702 



A206 

A004 

B50D 

48 

CA 

88 

D0F9 

A501 
48 

60 



HL0Of6 



LDA WORK+7 
ADC #0 

LDA WOKK+7 
BEQ FMULIO 
JMP MULOVL 

LDA WOSKi-6 
BEQ FHDlti 
LDX #<W0RK*3 
LDY #3 
JSR WTLM 

LDA SIGNl 
EOR SIGN2 
STA WOFK+7 

LDX #<W0RK+7 
LDY #5 
JSR KOIRIG 

LDX #6 

LDY #4 

LDA W0KK,X 

PHA 

DEX 

DEY 

BNE ML00P6 

LDA RETADD+1 
PHA 

LDA RETADD 

PHA 

RTS 



; Exponent > 255 ? 

; No, continue 

; Yes, overflow 

; Get exponent 

; 0 — > denormalised, exit 

; Normalised, shift MS bit mt 

I Start at fourth byte 



; Get sign 

; Calculate sign of result 

; Store in result 

; Start at eight byte 



; Start at WORK + 6 
; 4 byte 

; Push result 



A900 

A208 

950C 

CA 

DOFB 

4C7C04 



A900 

A20i 

950C 

CA 

DOFB 

A9FF 

8513 

4C7C04 



; Zero result — > Exponent 2ejfi6| 
; mantissa zero 

i 

HDLO 



LDA #0 

LDX #8 > 
STA WORK-^ltX 

DEX 

BNE ML00P7 
JMP FMULRE 



> 

; Overflow — > exponent 
; mantissa = 0 



MULOVL 



LDA #0 

BIX 

BNE ML00P8 
LDA y/$FF 
STA WORK+6 
JMB FMULRE 



; Save result and exit 
IFF 



; Clear workspace 



Exponent 



; Floating point division: 

; based on: Hagen Volzke Fliesskomma - Arithmetik und 



lEEE-Spezlf ikat Ion 
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04B7 




9 


nc 11/88 p 


0635 


04B7 










0636 


04B7 




FDIV 






0637 


04B7 


68 




PLA 




0638 


04B8 


8500 




STA 


mmmm 


0639 


04BA 


68 




PLA 




O6t0 


04BB 


8501 




STA 


RETADD*! 


0641 


04BD 




• 

9 






0642 


04BD 


A900 




LDA 


#0 


0643 


04 BF 


850B 




STA 


S1GN2 


0644 


04C1 


8506 




S.XA 




0645 


04C3 






0646 


04C3 




; Set seeomd 


pataiieter 


0647 


04C3 








0648 


04C3 


A207 




LDX 




0649 


04C5 


A004 




LDY 


#4 


0650 


04C7 


68 


FDIVPI 


PLA 




0651 


Q4€8 


9500 




STA 


$0000 ,x 


0652 


04eA 


IS 




INK 


0653 


04CB 


88 




DEY 




0654 


04CC 


D0F9 




BNE 


FDIVPI 


0655 


04CE 










0656 


04CE 




; Get f irat par^mter i 


06Sf 


64€E 




; 






0658 


04CE 


A202 




LDX 


#<MAN1 


0659 


04D0 


A004 




LDY 


#4 


0660 


04D2 


68 


FDIVP2 


PLA 




0661 


04D3 


9500 




STA $0000 .X 


0662 


04D5 


E8 




IMX 




0663 


04D6 


88 




DEY 




0664 


04D7 


D0F9 




BNE 


FD1VP2 


0665 


04D9 










0666 


04D9 




; Rotate 


operands to g< 


0667 


04D9 










0668 


04D9 


18 




CLC 




W69 


A201 




im 


#<MAIII 


0670 


04DC 


A005 




LDY 


#5 


0671 


04DE 


200002 




JSR 


ROTLEF 


0672 


04E1 




* 






0673 


04E1 


18 




CLC 




0674 


04E2 


A505 




LDA 


EXPl 


0675 


04E4 


F003 




BEQ 


FDIVl 


0676 


04E6 


38 




SEC 




0677 


04E7 


€605 




DEC 


EXPl 


0678 


04E9 




• 






0679 


04E9 


A204 


FDIVl 


LDX 


#<MANl+2 


0680 


04EB 


A003 




LDY 


#3 


0681 




200702 




JSR 


ROTRIG 


0682 


04F0 




• 

9 






0683 


04F0 


18 




CLC 




0684 


04F1 


A207 




LDX 


)'/<MAK2 


0685 


04F3 


A005 




LDY 


#5 


mm 


mm 


200002 




JSR 


ROTLEF 


0687 


04F8 




• 

9 






0688 


04F8 


18 




CLC 




0689 


04F9 


A50A 




LDA 


EXP2 


0690 


04FB 


F003 




BEQ 


FD1V2 


0691 


04FD 


38 




SEC 




0692 


04FE 


C60A 




DEC 


EXP2 


0&93 


0500 




k • 






G6f4 


0500 


A209 


FD1V2 


LDX 


#<MAN2+2 


0695 


0502 


A003 




LDY 


#3 



; Get parameters from stack 

; Get return address and save It 



; Clear signs 



Zero-pager i^l9tlif€ sMmm 
4 byta 

GteiH %fta f i?oiii stack 
Btom 



Zero-page relative addrcfiii 
4 byte 

Get byte from stack 
Store byte 



; Get zero-page relative addresisr 6t WSSl ' 
; Rotate 5 byte, result is: 

aO mmmmmmmm mmmmmmmm eeeeeeee 0000 



; Expon^eM mtt^l 

; Yes, denormalizei, Hor in 0 

; No, Ror in 1 

; Compensate exponent « ^ 

; Get zeto^iipe ralative address I 

I Eotate mantissa 

; mmmmmmmm mmmmmmmm mmmmmmm eeeeeeee 0000 

; Get zero-page releative address of KAM2 

; Rotate 5 iytte, result is: . , 

maiiiffl^^ mmm^m |^ 

; Exponent zero? 

; Yes, denormalized, Ror in 0 

; Conqpensml^ up onent 

; Get zero-page relative address 

; Rotate mantissa 
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0696 


0504 


200702 


JSR ROTRIG ; 


immiiiiiiiiiiin^n fflgMHimininiinn 'i^mtif'^^tfff ###eeeee 


0000 


0697 


0507 










0698 


0507 




Caleiilate the new expoaent 






0699 


0507 








0700 


0507 


38 


SEC 






0701 


0508 


A505 


LDA EXPl ; 


Get first exponent 




0702 


050A 


E50A 


SBC EXP2 ; 


Subtract the second one 




0703 
0704 


050C 
050E 


8513 
A900 


STA WORK+6 ; 
LDA il^O : 


Store low byte 
Clear a*^eiupulator 




mm 


©SlO 


lioo 


SBC #0 ; 


Subtract borrow 




0706 


0512 


8514 


STA WORK+7 ; 


Store the high byte 




0707 


0514 








0708 


0514 


18 


CLC ; 


We have also subtracted tUm Mjm 




0709 

t?l® 


0515 
§§17 


A513 


LDA UOBK+6 ; 

mm f fTt ; 


Correct this 
The bias 




0711 


0519 


8513 


STA WORK+6 






0712 


051B 


A514 


LDA WORK+7 ; 


High byte 




0713 


051D 


6900 


ADC #0 ; 


Get the carry 




071A 


051F 


8514 


STA WORK+7 






0715 


0521 










0716 






1£ the (hiaAed) «iQ»opent < 


-24 then we have underflow 




0717 






Result will be zero in this case 




0718 


0521 










0719 


0521 


1009 


BPL FD1V3 ; 


High byte >= 0 — > No underflow 




0720 


0523 


A513 


LDA WORK+6 ; 


Get low ^tm 




0721 


0525 


C9E8 


CMP #$E8 ; 


< -24? 




0722 


0527 


B003 


BCS FD1V3 






0723 


0529 


4C9B04 


JMP MULO ; 


Yes, result is zero ^imm pfiit of UfllL) 


0724 


052C 


FDIV3 






0725 


052C 






0726 


052C 










0727 


052C 










0728 


05 2C 




If divisor » 0 then error 


I 




0729 


052C 










0730 


052C 


A204 


LDX #4 ; 


Test 4 bytes 




0731 


052E 


B506 DLOOPl LDAMAN2-1,X ; 


Get byte 




0732 


0530 


D006 


BNE F01VK1 ; 


Not zef# 




0733 


0532 


QA 


DEX 






G734 


0533 


Idf 


ran iKBm i 






0735 


0535 


4CA704 


JMP MULOVL ; 


Return ^li^low (use part liOXLl 




0736 


0538 


« 

3 








0737 


0538 


fDlVSl 






0738 


0538 










0739 


0538 




; If dividend « 0 then result « -mmm 




0740 


0538 










0741 


0538 


A204 


LDX #4 ; 


Test 4 bytes 




0742 


053A 


B501 liW&fZ U)AMAN1-1,X | 


Get byte 




0743 


053C 


D006 


BNE FD1VN2 ; 


Not zero 




0744 


053E 


CA 


DEX 






0745 


Q53r 


D0F9 


BNE DL00P2 


Return zero (use part of FMUL) 






mm 


4(^4 


JMP MULO ; 




0747 


0544 


FDIVN2 






0748 


0544 






0749 


054A 










0750 


0544 










0751 


0544 




; 24 bits integer division 






0752 


0544 








0753 


0544 










0754 


0544 




; Clear workspace 






0755 


0544 










0756 


0544 


A900 


LDA #$00 






0757 


0546 


A206 


LDX #$06 ; 


We use 6 byte in the workspace 





23 



6502 FIo«ting Point Package PIOTOII fSOX MSEMBLM V4.4 PAGE: 0008 



0758 


0548 


950C 


iXtIV4 


STA 1IOil&-l,X 






0759 


054A 


CA 




DEX 






0760 


054B 


BOFB 




BNE FDIV4 






0761 


054D 




f 








07ft 


mm 


A203 




im #3 




Shift MANl and MAN2 by 


0763 


054F 


B501 


DL00P3 


LDA MANl-1 ,X 




0764 


0551 


9502 




STA MAN] ,X 






0765 


0553 


B506 




LDA MAN2-1 ,X 






0766 


0555 


9507 




STA MAN2,X 






0767 


0557 


CA 










0768 


0558 


D0F5 




WM DL00P3 






0769 


055A 




9 








0770 


055A 


A900 




LDA #0 


• 


Clear LS byte 


0771 


055C 


8502 




STA MANl 




0772 


055E 


8507 




STA MAN2 






0773 


0560 


A205 




LDX #<MANl+3 


• 

> 


Shift dividend result 


0774 


0562 


Mm 




tM #i«r 


9 


4 byte 


0775 


0564 


18 




CLC 




0776 


0565 


200702 




JSR ROTRIG 






0777 


0568 




9 








0778 


0568 


A20A 




LDX #<MAN2+3 


9 


Shift divisor result » 


0779 


056A 


A0O4 




LDY #4 


9 


4 byte 


0780 


056C 


18 




CLC 




0781 


056D 


200702 




JSR ROTRIG 






0782 


0570 




; 








0783 


0570 




; Add 25 


to the exponent 


, result > 0 ! 


0784 


0570 




; 






07J85 


- Q5J0 


18 




CLC 






0786 


0571 


A513 




LDA Wm+6 






0787 


0573 


6919 




ADC #25 






0788 


0575 


8513 




STA WORK+6 






0789 


0577 


A514 




LDA WORK+7 






0790 


0579 


6900 




ADC ll^O 


• 

9 


Add carry 


mm 


mn 


8514 




STA mm+7 




0792 


057D 












0793 


057D 




; Shift 


left the divisor 


until bit 30 is set 


0794 


057D 




; 








0795 


057D 


18 




CLC 


9 


Shift in zero 


0796 


057E 


240A 


DL00P4 


BIT MAN2+3 


i 


Copy bit 30 to V 


0797 


mm 


7om 




m& DLOOP 




079B 


0582 


A207 




LDX #<MAN2 






0799 


0584 


A004 




LDY #4 


• 

9 


Shift 4 byte 


0800 


0586 


200002 




JSR ROTLEF 




0801 


0589 




• 








0802 


0589 


A513 




LDA WOBK-l-6 


• 

9 


Increment exponent 


ms 


mm 


6901 






9 


Carry Va^ c&if 


0804 


058D 


A514 




LDA WOFK+7 




0805 


058F 


6900 




ADC #0 


9 


Add carry 


0806 


0591 


8514 




STA WOItK+7 


• 

9 


Carry is clear ••••••• 


0807 


0593 




> 






0808 


0593 


fms 




BCC DL00F4 






0809 


0595 




• 

»■ 








0810 


0595 




; Start 


division 






0811 


0595 












0812 


0595 


A204 


DLOOP 


LDX #4 


m 
9 


Save dividend 


0813 


0597 


B501 


DL00P5 


LDA MANl-1 ,X 






0814 


0599 


9514 




STA SAVE-1 ,X 






0815 


0591 






DEX 






0816 


059C 


D0F9 




BNE DL00P5 






0817 


059E 












0818 


059E 




: Subtract divisor from dividend 


0819 


059E 
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; Four byte 
; Start at Is byte 



0009 



0820 


059E 


A004 




LDY #4 


0821 


05 AO 


A200 




LDX #0 


0822 


05A2 


38 




SEC 


0823 


05A3 


B502 


DL00F6 


LDJLMAN1,X 

STA }nm^ 


0824 


05A5 


F507 




0825 


05A7 


9502 




0826 


05A9 


E8 




INX 


0827 


05AA 


88 




DEY 


0828 


05Afi 


D0F6 




BNE DL00P6 








*. 
t' 




0830 


05AD 


08 




PHP 


0831 


05AE 




5 




0832 


05AE 


BOO 9 




BCS FD1V5 


0833 


05 BO 


A204 




LDX H 


0834 


05B2 


B514 


DL00P7 


LDA SAVE-1 ,X 


0835 


05B4 


9501 




STA MANJ-l .X 


0836 


05B6 






• iBiiv ^ • -. 


0837 


05B7 


DOf 9 






0838 


05B9 




f 




0839 


05B9 


28 


FDIV5 


PLP 


0840 


mm 


A003 




LDY #3 


mm 


A210 




liDX #<W0EK+3 


0842 


05BE 


200002 




JSR ROTLEi 


0843 


05C1 


08 




PHP 


0844 


05C2 




• 
9 




0845 


05C2 


18 




CLC 


0846 


05C3 


A004 




LDY #4 


0847 


05C5 


A202 




LMJKMMl 


0848 


05C7 


200002 






0849 


05CA 




> 




0850 


05CA 


38 




SEC 


0851 


05CB 


A513 




LDA WORK+6 


0852 


05CD 


E901 




SBC #1 


0853 


05CF 


8513 






0854 


05D1 


850D 




STA WORK 


0855 


05D3 


A514 




LDA WORK+7 


0856 


05D5 


E900 




SBC #0 


0857 


05D7 


8514 




STA WORK+7 










ORA WORK 




05DB 


DOOI 




IKE FD1V6 


0860 


05DD 


28 




PLP 


0861 


05DE 


A212 




LDX #<W01&*S 


0862 


05E0 


A005 




LDY #5 


0863 


05E2 


200702 




JSR ROTRIG 


0864 


05E5 


4C7C04 




JMP FMULRE 


0865 


OSES 








0866 


05E8 


28 




PLP 


0867 


05E9 


90AA 




BCC DLOOP 


0868 


05EB 


A212 • 




LDX #<W0RK+S 




Q3ED 


A005 




LDY #5 


SHI 


olir 


2007® 




JSR ROTRIG 


0871 


05F2 






JMP MROUMD 


0872 








.END 



; Save tha carry I 

; If no borrow then the fubtraction was 
; Else restore dividend fo^ttlt^l^ 



; Restore carry 

; Shift carry in result (3 byte) 



; Sam ic^ir the fi&tiKre 

; Shtit ttMi -I^M 

; Decrement exponent 

; Teat on zero result 

J Teat on mmm. 'mmmM. 

* Restore carry (MS bit) 

; Shift 5 byte 

; Shift in MS-bit 

; Denormalized, return 

; Restore carry 

; MS bit clear, continuie 

; Shift 5 byte 
; Shift in MS-bit 



; Round result and return (use part of 



EIH^RS: 0000 



<0000> 
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¥aar J)QS-65 bestaat sinds kort, naast een 
l)asico€e2 programma ook een basicodeS 
programma. De maker, Frank Bens, be- 
schrijft in het onderstaande verhaal dit 
vert aalprogr ama • 

1^ f^t^mBBom is beschikbaar op hiit tmlle- 
tin board en verkrijgbaar blj de DGS-65 
coordinator Jan Derksen^ 

(Redact ie) . 

Beze file geeft in beknopte vorm weer wat 
de mogelijkheden zijn van het BASICODE 3 
vertaalprograiaiiia versle 1.0 voor DGSF5 
computers. 

Dit BASlCODE-3 vertaalprogramma tM g^^ 
scbikt voor alle DOS65 computers ea is 
ongeveer 3K byte groot. 

Het is geheel in BASIC geschreven, alleen 
de tekenroutine staat in machinetaal ge- 
schreven om de snelheid te verhogen* 

Basic V2.00 en 1/065 V2.01 moeten in het 
systeem aanwezig zijn om de goede werking 
van het vertaalprogramma te waarborgen. 



Om goed met het: vertaalprogramma te kunnen 

werken dienen de volgende file's in het 
systeem aanwezig of op diskette beschik- 
baar te zljm: 

- BASIC0DE3.BAS (vert»atpir^raiffliia3 

- BC0DE3V1.DAT (be vat o,m. de plot 
routine) 

- de VDU-EPROM geprogrammeerd met 
CHARGV1D2 (karaktergenerator) 



fijdeiis de executie van BASIC0DE3,BAS 
wordt de file BC0DE3V1J)AT in het geheugen 
geladen en wordt op het scherm zowel het 
versienummer van het vertaalprogramma als 
dat van de .DAT file vert©oad» zodat U 
1mm Mim met we ike Wrsie ^ge^erirt-'^j^at* 
Tevens komen er nog wat aanwijzingen, o.a. 
het gebruik van het MERGE commando, op het 
scherm. 

Het j|s tilet toegestaan om een BASlCODI-3 
progr^mgaa incl. het vertaalprogramma op 
diskette te zetten. Dit is tegen het BASI- 
CODE protocol. 

In het originele vertaalprogramma staat op 
regelnummer 1000 en hoger o.a. een comman- 
do dat de file BGGDE3V1J)AT in het geheu- 



gen laadt. Na het niimen van het vertaal^ 
programma Is dit commando verdwenen. 

Daarom, wordt er een programma op disk 
gezet, moet dit vanaf regelnummer 1000 en 
in MS^SH f ormaat fitbiparen, omdat het INIiiii 
commaadil nits lui tend ASCII filer's accep- 
teert • 

Houdt er ook rekening mee dat als er een 
file van cassette l^ordt geladen we Ike bij 
een bestandenprogramma hoort, deze in 
M&1% formaat met de extensie .VAR op disk 
wordt gezet. 

Bijzonderheden en beperkingen. 

let tekst scherm kent 111^031^3^1^^^ 

het graf ische scherm word#n noriaale ASCJii 

symbolen vertoond. 

In de graf ische mode staat het display op 
9 scanlines i.p.v. 10 ingesteld, waardoor 
sommige kleine letters niet ^leaaal -net^*^ 
jes vertooitt' worden. ' " ^ 

Om een goed graf isch bee Id te krijgen moet 
het scherm eerst gewist worden, waarna er 
dan willekeurig lijnen getrokken kunnen 
worden. 

Wordt eerst een karakter geplaatst en 
daarna een lijnstuk door dit karakter 
getrokken dan zal dit verminkt worden. In 
omgekeerde volgorde: dus eerst een 
lljnst^ eii^4aarii^a bet k^m^ts% dmai^l 
des^S Mef ^tmlnken. ' ^ :u ~ 

Daar het programma (nog) niet een eigen 
cassette routine bezit, is het (nog) niet 
mogelijk volgens het BASlCODE-3, protocol 
een liestani 'ftaar casisette tw ^efii^w " ^ 

Het lezen van bestand files kan gebeuren 
m.b.v^ het programma TAPE. De maximale 
regellengte is 78 karakters (zowel bij 
schrijven als bij lezen van 

Variable OT op regelnummer 21 moet voor 
een kloksnelheid anders dan IMHz aangepast 
worden, daar anders de routine op 450 te 
snel verlaten wordt. 

Cnrsorbestidiring is mogelijk met '^H,"!,^! 
en resp. links, rechts, omlaag en om- 
hoog. De toets DELete (hex 7F) heeft de 
wisfunctie* 

Afbreken van een programma is mogelijk met 
'^C, mits deze f unctie niet door het pro- 
gramme ultgeschakeld is. 



DOS-Si CuRiiiR 



De routine op.,.#i|l geen 
geluid, hieraan vordt gewerkt pm' i*z.t. 
zal er een print je met de gelnlllchip 
(6581 ) beschlkbaar koi&en. 



Volgt nu een opsostiBini wmm Mm. dlir#i'se 
snbroatine^st 

100 Schakel om naar tekstS»#da&|i 0^ wim 
het scherm 

110 Verplaats de cursoi: naair posltie 
BO,VE 

120 Registreer de cursorposltle in HO,VE 
150 Print op opvallende wijze drie spa-' 

ties;SR$;drie spaties 
200 Geef een eventueel ingedrufcte toets 

in 1N$ en IN 

tfeeial^ eddesf 

28 = cursor links 

29 = cursor rechts 

30 = cursor omlaag 

31 = cursor omhoog 
127 = wis/delete 

¥€i^dej ml^ aitydi <- IN <» 95 
210 Wacht tot-eoigrBl^^ M geef deze in 
1N$ en IN 

220 Geef in IN de code van wat op scherm- 
positie H0,VE te zien is 
kSmi zie de toevoeging bij subroutine 

250 Geef een piepje als attentiesein 
260 Geef een randomgetal in RV zodat 0 <= 
RV < 1 

270 Doe 'garbage collect' en geef in FR 
het totaal mamtml vrlje bytes 

280 Schakel de stoptoets in (FR"0) of uit 
(FR=1) 

300 Geef in SR$ de tekitvc^tm vaia Sit ^mr 

der spaties 
310 Geef in SR$ de tekstvorm van Sl^ 

fefonaatteerd conform CT en CN 
erander alle klelfte letters in SR$ 
in hoof dletters 
350 Stuur SR$ naar de printer 
360 Sluit de printerregel af vmt Wagen- 

terug en papieropvoer 
400 Maak een toon volgei^m^W^m Wf 
Sf toc^code: 0»uiterst laag, 
60='Centrale C', 
127=uiterst hoog 
SD toonduur in stappen van 0,1 secon— 
de 

SV volume: O^stll, Z-normaal, 
1 5«maximum 

450 Wacht maximaal SD*0,1 seconden op een 
toetsindruk na afloop: toets in IN en 
IN$ conf orm de toeyoeglng bij subr« 
200 



SD verlaagd tot moment van toetsln^ 

druk of SD*0 
500 Open best and NF$ volgens code NF 

NF=even: invoer, 

NF=oneven: uitvoer 

NF= 0 of 1 : BASICODE-cassette 

NF« 2 of 3 : eigen systeemgeheugen 

NF= A of 5 : diskette 

NF= 6 of 7 : diskette 
540 Lees in IN$ uit g^npend best and Nf en 

in IN de status 

IN=0: alles OK, 

IN^l; einde bestai^l^ 

IN«^1: f out code 
560 Voer SR$ uit naar het geopende be- 
st and met code NF 
580 Sluit het bi^itand met code NF af 
600 Schakel om naar graf isch bedrijf em 

wis het scherm 
620 Plot een punt op positie H0,V1 in 

kleur CN 

630 Trek een lijn naar punt HO,VE in 
kleur CN 

N,B.: 0 <« H© < % <- ft < 1 

650 Print SR$ als tekst vanaf grafische 

positie HO,VE 
950 Beeindig het programma en schakel de 

machine naar normaal bedrijf 



RiaiLNUIlMSRS IN fii^l€0Di^3 

De voorgeschreven indeling voor de regel- 
jl^mmTS in BASIC0DE'-3 is: 

0 999: De standpi^rciutinea 

1000: Verplicht van volgende 

vorm: 

1000 A»<st r ingruimt e> : 

GOTO 20:REI! programma-na«Bi 

1010 - 19999: Het hoof dprogramma 

20000 - 24999: Eventuele machine- afhan- 
kelljke subroutines 

25000 - 29999: DATA regels 

30000 - 31999: REM-regels met korte pro- 
g;t#mia- b e s c h r i I iri ii ■ ii 
eventuele liteJi:»tpijriri^3^ 
wijzingen 

32000 - 32767: REM-regels met de naam en 
het adres van de maker 
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29/03/1989 



****** 

****** EEEE CCCC 6 SSSiS ****** 

****** E £ 6 5 ****** 

****** E C 6 5 ****** 

****** EEEE C 6666 5555 ****** 

###### E C 66 555 *****'* 

***#** E C 6 6 5 5 ****** 

****** EEEE CCCC 66 5555 ****** 

****** ****** 



*********************************************************************. 



Eindelijk is het dan zo ver de lang veruachte Eprom Programmer ook V^l**^ 

de Elektuur cq Octopus 65» Samson 65 of ander verwante namen. 

#i 'iim ^# G^iiH^lii^ pit print ©it dlvai^m© (O^roms en mmn pal 

is uit gebracht ben ik naar aanleiding van een oproep op een bijeenkomst 

om de software die oorspronkel i Jk voor de Dos 65 is geschreven om te 

schrijven naiir cte El#ktiiyr «i^f twisr^ oncier OHIO OS-65 D V3. 3 disk operation 

sS;^stem. 

riwA^^fi#l: gecompliceerd is orn mmftmmrm mm te schrijven is 

het mi J ToTif initii -m% PmM l^iii SUlMfet fiN^-'iit: toch a3iipi^4iiJ|.ii-^:t COS- Mr 

te hoLiden . 

De softuare nl. 2 schijven geheel onafhankelijk van elkaar uerkend. 

Tern .^er#te een programma waar mee Je de hardware en diverse vpedingspan- 

nigtffi*' rirree kunt kontroleren testen en afref@flifii. • i b^i ir a > 

firri; tweede een programma waarmee Je de eproms mee kan programmeren . 

Daar dit VOORLOPIGE VERSIES zijn maar wel werken ben ik nog druk doende 

bezig &m enkele bumM Mm nog in de beide programifta'# 2itterr'er uit te 

halen . 

De 2 schijven 40 of 80 tracks 1 en/of 2 MHZ wel op geven bij Uw bestelling 

ziJn al]. een te ve^r^ I : r i g en a 1 s J e de print met ( E ) pr oiris en pal Uian t -^^i^'Sj^T' 
deze essensieele onderdelen werkt de Eprommer niet^ 

m& mwmitkm'' Wm^wm^ pm^mm. i§m»%iWi^M f# •itfirr#it# .iPIMr -i^ w^i i^an te 

bevel en om dit te doen , nl dan wfrpfc de EP kjiiart f^lljk gein i t ial iseer d biJ 

het aanzetten van de computer - 

Daar er een wild grcoei onder de Elektuur Monitor Eprom in de Jaren is ont 
staan is het vrij moeilijk om een goede oplossing te geven namelijk iedereen 
wijzigde naar H^^lTfen inzicht 2ijn of haar Epf^iwi tetr W¥iili» iitiiiiiatwd mwm of 
is nog compatible met elkaar, om hier een eind aan te makiin heb ik de 
orginele Eprom van ELEKTUUR gedeeltelijk veranderd. 
De noodzakel i Jke uiijzigingen ziJn als volgt: 

Als ,je nog de orginele eprom van Elektuur met biJ behorende sourses bezit 
is ti^'^' 'hmmt ^envouifig 

Onder staande gegevens gelden alleen voor de sourse geassembleer d onder 
MICRO-ADE deze assember staat op schijf 5 en 5 a van de OHIO diskettes. 

In de sourse vindt Je in het begin van het deel SAMVID de diverse 
tabellen om verschi 1 lende beel df ormaten te kiezen . 



ligpirip^ll .pp^r-ajnineren riil.i^te: 



>» EC 65 <« 
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EC-65 (K) 



dm wijsigingen zijn al.s. VQlgtl 

In de'orginele sout^me vfrldt je een stuk sourse genaamd s 

MOVE THE CRT FILE F"ROri ROM TO RAM genaamt met labels MOVCRT (F3EU 

Di t doet niets anders dan dee data die in Eprorn monitor staat te capieeren 

naar F^AM i daar er versch 1 1 lende tabellen rnee te kiezen zijn rnoet men 

er enige wijzigingen in aanbrengen zodat er nog maar EEN tabel mee yordt 

g«kc^ie^i pacr»pliji> het , be^lschprm formaat 80 * 24 



ER 'gr^T IN 



ER KOMT TE STAAN IN DE SOURSEl 



LABEL 
MOVCRT 



MCRTA 



MCRTB 
MCRTC 



MMEMONICS 


COMMET 


LDAIM 


REFRAH 


START AT HERE 


LDXIM 


REFRAM 


/254 


STA 


RAMBES 




STX 


RAMBES 


+01 


LDAIM 


$□0 




TAY 






LDX 


FORMAT 


GET THE CURR* 


BEQ 


MCRTB 


FORMAT. 


CLC 






ADCIM 


f 12 


COMPUTE THE INDEX 


DEX 






BNE 


MCRTA 


ALL DONE ? 


TAX 






LDAX 


GRTINA 




STAY 


TABLE 


MOVE THE TABLE 


INX 






I NY 






CPYIM 


*12 


COMPUTE THE INDEX 


INE 






DEY 






LDAY 


TABLE 


SET SCREEN PARA- 


STA 


LPSCR 


METERS 


DEY 






LDAY 


TABLE 




STA 


CHAPLN 




RTS 







LABEL 
MOVCRT 



MCRTC 



MNEMONICS 


COMHET 


LOAiW 




itART AT HERE 


LDXIM 


REFRAM 


/256 


STA 


RAMBEG 




STX 


RAMBE6 


+01 - 


TAY 




err the cwRR^isfr 


LDXIM 


TAX 




FORMAT 


LDAX 


CRTINA 




STAY 


TABLE 


MOVE THE TABLE 


INX 






mm 






CFYIM 


$12 


COMPUTE THE INDEX 


BNE 


MCRTC 


ALL DONE ? 


DEY 






LDAY 


TABLE 


SET SCREEN PARA- 



STA LPSCR 
DEY ■ 

LDAY TABLE 
STA CHAPLN 
RTS 



»*« mr Tifni*B' TAtLii ♦»«■ 
»»*♦*«»»«»***«»■»»#*♦*»»»♦ 



CRTINA =« 7F 50 60 08 21 06 18 IC 
00 08 00 09 00 00 00 00 
=« 50 18 



CRTINA =* 7F 50 60 08 21 06 18 IC 
** 00 08 00 09 00 00 00 00 
a*"50^ IB 



=* 64 40 52 05 22 00 18 IC 
00 08 00 09 00 00 00 00 
»* 40 tS 

«* 46 30 3A 05 16 OE OC 12 



EPROM LDYIM *FF GET VALUE DDR REG. 

LOftllf too AND VALUE DDR ACCES. 
STA PCRA SET DDRA ACCES. 
STA PCRB SET DDRB ACCES. 
STY PORA SET PORT A OUTPUT 
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=$ 00 OC 00 09 DO DO 00 00 
=* 30 OG 

=$ 38 18 26 05 22 00 18 IC 
00 08 00 09 00 00 00 00 
18 IS 



STY PORB SET PORT E OUTPUT 

LDAIM $04 VALUE FOR PORT ACC. 

STA PCRA SET PORT A ACC. 

STA PCRB SET PORT B ACC, 
I NY 

ST? PORA SET ALL LllHi 

STY PORB TO ZERO 

TYA A=0 

DEY Y=*FF 

STY VDDRA SET VIA PORT A 

STA VORANH SET DATA BUS 

STY VDDRB SET VIA PORT B 

STA VORB SET CONTR TO ZERO 

ifr# INICEN INIT CENTRONICS 

=$ FF FF FF FF FF FF FF FF 

=$ FF FF FF FF FF FF FF FF 
FF 



VmY'dmr in de bij 4m pointm^s and temps s 

toevQ#g#n fl^ Jf f 1.111 # l^m^ t®! « CCP OF ASM/WP BUFFER 



*E180 SET TO BASE EPROMMER CARD 
EPBASE 

VIA VIA OUTPUT REGISTER B 

VIA +01 VIA OUTPUT REGISTER A 

VIA +02 wm^ DfHt mm. mm i 

VIA +03 DATA DIR. REG. PORT A 
VIA +0F VIA PORT A. NO HAND SHAKE 
EPBASE +10 BASE ADDRESS OF PIA 
PI A PORT A DATA DIR REG A 

PIA +01 CONTROL REGrSTER A 
PIA +02 PORT B DATA DIR REG B 
PIA +03 CONTROL REGISTER B 



INICEN # ♦F6F1 RliyiH TO IMITIALIZE CENTRONICS 



EPBASE 


# 


VIA 


# 


VORB 




VORA 




mmm 




VDDRA 




VORANH 




PIA 




PORA 


* 


F€RA 




PORB 




PCRB 


* 


INICEN 


# 



Als Je deze gegevens heb ingevoerd 20 als hier boven en Je assembleerd 
di% dan moet dit gaain van 1^ FODO tot *F45G is totaal 1117 byt#s- 



Dan het valgende gedeel te van de MONITOR EPROM sourse genoeind- SAMMON. 

In de EQU list external addresses TOEVOESEN NA 

KERNEL * $2547 SWAP $02 1 3 . . . *02 1 6 AND GO TO KERNEL 
EPROM * $F41C INITIALIZE EPROMMER VIA AND PIA 



Verder in de sourse onder de kop MONITOR met label INITPR (F811) 
l^#fei#n naar JSR INICEN INIT. CENTRONICS (F82B) 
veranderen in iJSl EPB©M INITIALIZE EPROM CARD 

DBiEir ik weet dat er nog vev^sch i 1 lende bugs in het programma EP EN EPTEST 
kunnen sitten qa in bet prograrrima EPTEST met de space balk is niet uit 
een t^p^ldcr t««ti^outin« te kairien. 

In EP een 27512 is nog niet te prog rammer en dit gaat bi J het eerste bit al 
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fout vmrtSmt kunnen er nag uel enkele andere storende fouten in het progrannma 
vci#i^felilifii f mimf iiil m§^l tk in cte koiftande maandwTi i^aarschijniljk t###tlt a# 
winter uel verhalpen hebben . ... . 

Graag uiil ik bij deze vragen de mensen die de software voor ttfe >>> EC-65 <<< 
bestellen hun klachten, bevindingen aan het onderstaande adres b©k©nd te makWB 
zodat tegen de winter alle bugs uit het programma zijn. 



Gelieve deze te zenden aan a 



T.SMITS 

4131 m 



1© ^fimi^i^mm ^s^f^mi^ 'U&v^^^^ t^fe lit Kil UP KENNER bekend gemaakt en ziJn 
verkrijgbaar biJ bovenstaand adres dit g&ldt alleen voor degei^® die fim ym^ 
lopige versie in het bezit hebben. ' " ' , 

In de total e prijs van de hardware zit nl de software msm^'m 
versie voor DOS 65 als voor de >>> EC-63 <<< versie, 

De totale priJs voor zowel voor de DOS 6S Mli veir ife kM' stmrsTie 

include pal proms ^ enkel i J di ge hoofdprint htllp print voor de pra- 
gramrneer voet en programatuur bedraagd FL/^S^i — 

MdChten er programrneer problernen ziJn dan ben ik wel bereid om de orginele 
MONITOR SAMMON die ik zelf gebruik tegen kostprijs van porto eventueel 
opgestuurde eprom te programmeren- 

Dg beschr 1 Jving die bij de EF^ en EPTEBT geleverd wordt kun Je ujat betreft 

de versie voor >>> EC~-65 <<< aanhouden mochten er enkele ver ander ingen ziJn 

twn ^afi 1®^ 'rfllin %m% dit ifi de UP Kenner bekend gerrwia^* liCil^^eHf* •,, ' ■ 

De Jumpers voor de kamrt selectie zijn het zelfde nls * E18D 

verder is het start adres voor RAM defauld waarde $1000 biJ DOS 65 biJ 

>>> EC-65 <<< verhQogd na^ir $4G00 i-v.m kernel op *2300 ev. 

Verder wil ik op deze plaats Nico de Vries bedanken voor het beschikbaar 

stall em van d» isoftware van EPTEST EN IPTHf WiM^^itifti . • 



Nieuwe prlizen vo or EP hardware. 

Eindelijk is het zover: de printen voor 
de EPRDMprogrammer EP zijn leverbaar. De 
printen zljn echter wat duurder 
uitgevallen dan wij oorspronkeliok hebben 
voorzien. Daarom is in over leg met het 
bestuur gesloten de prijzen iets te 
verhogen . 

Diegenen die reeds in het vorige jaar 
besteld hadden hebben uiteraard foor de 
oiKle prijs geleverd gekt^^. ^fSr^ftieime 
l^ridzen gelden -mmri^^ mm£ I ^ UMirt 
jongstleden. i ^ . 



Harduarp 



De prijzen zijn nu: 
Printen, floppy disk 



en componenten 
, fell. 85.- 



Printen, flo] 
opstellingen, P 



disk, componentan 
EPRDM en PAL: 

hfl. 105.- 



Ptinten, tloBW disk, PBDM, PAL en EPRDM, 

mmmiM m^^smmt • >. ^ i bfX, .125.^ 

Dit alles wordt veroorzaakt door het 
feit dat vooral de basisprint behoorlijk 
duurder is uitgevallen dan oorspronkelijk 
gecalculeerd . Daarentegen vielen de ZIF- 
print, de PALs, PRDMs en EPRDMs alsmede 
de kopieerkosten voor de .manuals 
fiitn^i^lyk yoordeliger uit, redan mmxm 
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vooral de losse printen drastisch in 
priqs verhoogd moesten worden, en dat de 

grijsverhoging voor het complete pakket 
eperkt kon blijven. Het bestuur hoopt 
dat u begrip voor de ver hewing zuit 
kunnen opbrengen. 

Manens het bestuur: N, cie Virifti* - -^-^ 



Door: Nico de Vries. 

Nu de definitieve versie er is, komen er 
ook wat kleine noodzakelijke wijzigingen 
boven water. Het blijkt aan te bevelen te 
zijn de L200 re^elaars te voorzien van 
een kleine koeling. Als u alle regelaars 
een klein stripje aluminium monteert, 
worden ze niet heet. Ongekoeld blijven de 
regelaars wel heel, maar u kunt uw 

vingers eraan branden 

Positief is deze melding: tot op heden 
heeft nog geen der 12 bestellers met een 
hardwareprobleem gebeld. Soms gaat er 
toch nog wel eais xets goed. 



• • f» • # • % 



Door Gert van Opbroek 
Bateweg 60 
2481 AN Woubrugge 
01729-8636 

Inleidlng* 

In het eerste deel van de serie heb ik het 
gehad over de globale opbouw van de compu— 
teir« III de tweede af levering hebbeis m het 
geheugen van een computer bekeken. In dese 
af levering wil ik het werkpaard, de CPU of 
processor, wat nader bekijken. Uiteraard 
bekijken we hoe de processor logisch in 
elkaar zlt en werkt en niet hoe het elec- 
t:i;#mi4i!|te .^.3.miaa^i|^),.. ,gma^.« In de eerste 
plaat« Vitiidt ll: dat Met echt interessant 
en in de tweede plaats weet ik het niet en 
ik zou ook niet weten waar ik dat zou 
kunnen vinden. 

Tenslotte nog een opmerklng over de voor- 
bee 1 den die gegeven vorden. Specif ieke 
Vdorbeelden hebben altijd betrekking op 
een bepaald type processor; daar is na- 
tuurlijk niets aan te doen. Wei is het zo 
dat vrljwel alle microprocessors irif^- 
lljkbare pog eli jkheden hebben en op een 
verge lijkbarfe "iianter werfcen^ leti uitzonde- 
ring hierop vormt misschien de ARM (Acorn 
Rise Machine). Dit is namelijk een echte 
RISC (Reduced Instruction Set Computer) 
die nogaal afwijkt van de CISC- (Complex 
Instruction Set Cotttptiter) waaironder de 
andere processors vallen. Voor een verge- 
lijking tussen CISC en RISC wordt verwezen 
naar [ 1 ] . De ARM is het hart van de ACORN 
ARCHIMEDES . 

De Processor. 

In figuur 1 is de opbouw van een microcom- 
puter nogmaals weergegeven [2]* We zien de 
processor weer met de klok, het geheugen 
en de programmeerbare X/Q# Tussen deze 
iffiieirdelefi lop en de Mwm^ iati^ en con- 
iirol- of stuurbus. In de meeste systemen 
Is de processor een IC (Intergrated Cir- 
cuit of ge!lntergreerde elect ronische scha- 
keling) met bijvoorbeeld 40 of 64 pootjes. 
Um breder de adres*- en databus zijn, hoe 
meer pootjes de processor over het alge- 
meen zal hebben# Het komt echter ook vrij 
vaak voor dat enkele pootjes voor twee 
signalen gebruikt worden. Dit kan bijvoor- 
beeld een adres- en een datasignaal zijn. 
Een signaal in de stuurbus geeft dan aan 
of het betreffende signaal een adres is of 
data. Deze techniek beet multiplexing en 
men zegt dan wel dat de processor een 




DATA 
MCMOflY 



CLOCK 



PERIPHERAL 
INTERFACE 



. OTHER 
CONTROL 
SICNAiS 



Figuur 1 • 
gemultlplexte bus heef t« 

Een leuke anecdote is misschien wel het 
ontstaan van gemultlplexte bussen. Proces- 
sors worden uiteraard door IC-f abrikanten 
zoals Intel en Motorola gemaakt. Nu is het 
maken van een gemultlplexte bus extra werk 
omdat er in het IC meer e lect ronische 
schakelingen nodig zijn om het multiplexen 
voor elkaar te krijgen. Dat doe je dus 
niet zomaar* Lp.bet biglp.haJdmvWe mmS"^ 
namelijk te maken met praeesisc^s iwi ® 
bits databus en 16 bit adresbus. Dat zijn 
dus al 24 pootjes. Daarbij komt dat de 
voeding (2 tot 4 pootjes), de aansluiting 
voor de klok ( + /- 3 pootjes) en nog wat 
andere stuursignalen, koff^ 40 pootjes is 
ruim voldoende. Later ontstond de behoefte 
aan bredere bussen, bijvoorbeeld 24 adres- 
lijnen en 16 datalijnen. Dat krijg je met 
40 pootjes nooit voor elkaar als je elk 
pootje z'n eigen functie geeft. Dan kun Je 
natuurlijk het IC meer pootje* gimm 

echter** Meer poot j es aan het 1€ 

betekent ook dat bijvoorbeeld de testappa- 
ratuur in de f abriek een IC met meer aan- 
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sliiltingen moet kunnen verwerken en die 
apparatuur was bijna allemaal ontwikkeld 
voor ICTs met maximaal 40 pootjes; kortom 
de stap van IC's met 40 pootjes naar IC's 
met 64 pootjes brack! ttlatlef grote 
Investerlng met: jiijsii Hiii m §^m^-A^ men 
in eerste instantle llever de Bieftaicelf ngen 
in het IC wat moeilijker maakte en de 
bussen ging multiplexen. Momenteel gelden 
deze begrenzingen eigenlijk niet meer, er 
Eljn nu ICTs met meer dan honderd pootjes* 
Ble imtieh ^erdeeld over bij^##i#illi 
32 adreslijnen en 32 datalijnen en nog een 
handvol stuurlijnen. 

In f iguur 2 [2] is schematisch weergeven 
wmmr de 40 pootjes van een 6502 voor die- 
nen. De belangri jkste mljii de adresbua 
(AB), de databus (DB), de iclok (0) en de 
voeding (Vcc, Vss). De overige signalen 
zijn onderdeel van de stuurbus en komen 
lat^T' aan de otde* 




N.C- NO CONNECTION 



memos mumi Dmpmmtr 



F iguur 2. 



Intern is een processor, net als elk ander 
IC, opgebouwd uit min of meer normale 
onderdelen: t ransist oren, weerstanden en 
condensat oren. Met deze onderdelen zijn 
normale electrmAM^^ l^akelingen gebouwi 
die echter niet op een printplaat gesol*- 
deerd zijn, maar door middel van diverse 
diffusie- en opdamptechnieken in een stuk- 
je half ge leidermateriaal (silicium) zijn 
aangebracht. Dit stukje silicium wordt de 
c^ip, (l^§t schijf je) gei^pemd. 

Hoe g§n en ander in zijn werk gaat en hoe 
de schakeling van de diverse circuits is, 
valt buiten dit artikel. Wij beschouwen 
het IC vanaf nu als een black box (ze zijn 
toch ook bijna altlj4 nw^surt) met 
tal functies en een aantal aansluitingen* 
In de volgende paragrafen wordt dus de 
logisehe w^i^tiim ^ processor beschre* 
van. 



De logisehe opbomi 



;.Ae pipNSieiliiiiir* 



In figuur 3 [3] is de interne opbouw van 
(alweer, sorry 68000, 8088 bezitters) de 
6502 weergegeven. De 6502 is weergeven 
omdat het interne schema nog net in een 
plaatje past en (»&dat 4e pcocessoir nog een 
klein beetje overzichtelijk blijft* Pro- 
cessors zoals 68000 en 8088 hebben nog 
veel meer blokjes en zijn eigenlijk mlet 
meer schematisch weer te geven. 

Am 4e hmid ym het schema in figuur 3 zal 
Ik tracliten %it te leggen hoe een gemid- 

delde processor werkt. In de eerste plaats 
hebben we met de volgende onderdelen te 
maken: 

Se; a4reabuffer (ABL, AIH) 

- De databuffer (DB) 

- Het instructieregister (IR) 

- De programmateller (PCL, PCH) 

Verder komt in de volgende beschrijving de 
accumulator of accu naar voren. Dit is een 
sogeiQLysi^l^ In dit register kumt 

het resultaat van een bewerking terecht. 
In het voorbeeld wordt steeds uitgegaan 
van de LOAD-instructie waarbij de accu met 
een bepaald getal geladen moet worden. Als 
voorbeeld van een instructie die allefl 
intern verkty la de CLEAR CJkKBX Instructie 
getoozen. Deze lnst:ruetle ^lilt em Mi Ch^ 
zogenaamde carry-bit) in het proeessof 
status-register met de waarde 0. 
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NOTE 

t. €L0CK GmmmmiuB^mMMmLmm m tmn, msia, r6514 am& neiii. 

2. ADORESStNQ ekMBfLITY mm &mfmL OPTiOm VAUY WITH mm OF 
THE CPUs. 

3. R6502, R6503, R6504, R6505, R6i0$ AND mS^7. 

4. R6512, R6513, R^l# iHeLM^II^ 

5. R6512 0NLY. -^^^^ 
«.Bt80aONtY. 



R650X and R651X Interruil iii^Mil^fif 
Figuur 3 
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Zoals In het vorlge deel al Is aangeifiiriiif 
staat het programma dat de procesfif^f tiit 
moet voeren in het geheugen van de compu- 
ter. Om dit programma uit te voeren, moet 
de processor dus de opdrachten (instruc- 
tles) ult het jehai^eia lezea. Dlt gaat als 
volgtt - '■ ' ■' ' • ' '''' ' ■ ■ 

1.0: Zet de inhoud van de programmateller 
in de adresbuf fer 

1.1: lji* %it: «igiiaal R/W (In de stuurbus) 
hoog om aan het geheugen duldelijk te 
maken dat de processor wll lezen 

Na enige tijd (op een ni veauverande- 
ring van een kloksignaal) staat de 
inhoud van de gehe^a^genlocatie op de 
^dtabiis eii jlngelezen iii bet 

■ instnietier^^^J^t ^ 

1.3: De inhoud van de programmateller 
wordt met 1 verhoogd en de instruct ie 
is^i^ gedecodeerd 

Dit is het eerste deel van de bewerkingen 
die een processor uitvoert om een instruc- 
tie uit te voeren. Dit eerste deel heet de 
"opcode fetch" of te wel het ophalen de 
inetructie. Voor elke iniatiruic^tJLe in ei: ^en 
tittieke cod^ f15lt^1itri^^> fe* aarti dh^ iband 
van deze code weet de processor wat hij 
moet gaan doen. Deze code heet "Opcode" en 
beslaat bij de 6502 8 bits (een byte). Er 
kunnen op een 6502 dus maximaal 256 in- 
struct ies gecodeerd worden. Bij de 68000 
is voor de opcode twee byte beschikba^ei: 
zodat deze processor in theorie ruim 65000 
verschillende instruct ies zou kunnen heb- 
ben. Hoewel de 68000 zeer veel instructies 
heeft, zijn niet alle mogelijke opcodes in 
gebruik* 0@k bij de 6502 le ef nfg enige 
ruimte ^It^ W£l*I^EJ»i^' il^^^ 
de 6iWAl is w^^mM^ 

Na het inlezen en decoderen van de in- 
structie kan het voorkomen dat de proces- 
sor al l^ gegeirens voor het uit voeren van 
de instructie tot zijn beschikking heeft. 
De processor kan dan zijn taak uitvoeren. 
(Voorbeeld: Maak de carry-vlag 0; CLC). In 
dit geval gaat de processor dus verder 
met: 

2.0: Voer de instructie uit. 

Nu zal het echter zeer vaak voorkomen dat 
er voor de uitvoering van de instructie 
iseer gegevens nodig zijn. Een voorbeeld is 
de instructie: Zet het getal 10 in de 

accumulator (LDA #10). In het programma 
staat dan eerst de opdracht (bij 6502 $A9 



= LDA #) gevolgd door het getal 10. De 
fPiii^sor gaat in det ge^el w§- ie volgende 

2.0: H§ het is LDA #, ik moet data opha- 
len; zet de inhoud van de programma- 

2«1^ |jM^'ll/Wi#og 

2.2: De inhoud van het geheugen iiwfe te*^ 
recht in de databuffer; l^ittt de«e 
naar de accumulator 

2 .3 ; VeirbQOg de pKOgxaniiiiat e 1 ler met 1 

Elke processor heeft een aantal verschil- 
lende mogelijk heden waarop hij bij de 
data kan komen. Dit noemen we de adres- 
seermagelijkheden (adressing modes)* In 
liet iir9i^»tiisi^ 'ife '4m: iwrn^ 

diate adressering beschreven. Dit wil 
zeggen dat de data meteen na de opcode in 
het programma staat. Elke mij bekende 
processor heeft deze mogeli jkheid. 

Een tweede mogelijk die bij elke processor 
voorkomt is de absolute addressering. Dit 

wil zeggen dat na de opcode in het pro- 
gramma het complete adres van de data 
staat. Op een 6502 betekent dit dat na de 
opcpde van 8 bits (1 byte) twee byte met 
let •mkmm ^^m^M iii* #t*it« 1# pt0eessi>r 
handelt nu als volgt: 

2#0: Verd.... absolute adressering; zet de 
inhoud van de programmateller in het 
adresbuffer 

2.1: R/W 

2.2: Het ingelezen byte kopieSiii Hit de 

2.3 : Be f i^arsimiiatel ler mmm- met 1 viWelyr 
gen 

,3*0: Inhoud van de programmateller in ie 
adresbuffer 

3 • .1 : R/W « • « « • wm. ft 

1,»2: Het ingelezen byte kopieren uit de 
databuffer naar het hoge byte van de 
adresbuffer; de inhoud van de data 
latch gaat naar het lage byte van de 
adresbuffer 

3.3: De programmateller (alweer) myet 1 
4.0: Adiresbuffers zijn gevuld 
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4.1: R/W 

4,2: De inhoud van de databuffer ko^flereti 

Het bovenstaande schema kan sterk uitge- 
breid zijn. Het kan bijvoorbeeld zijn dat 
we na de opcode een adres hebben staan dat 
wijst naar ^ of meer 

inhaud bet adicmm Mt$m Wmmt de data te 
^ltld€n Ig Cga xiaar bbswef 13 en vraag daar 
waar D. Ata woont). Dit laatste noemen we 
indirecte adressering. Ook kan het zijn 
dat bij de berekening van het adres de 
Inboud van het ^ ot, andere register bij 
het &&Tmm opgeteld mm wotdeti. Be 
heeft speciaal voor dit doel de twee in- 
dexregisters X en Y die ook in figuur 3 
staan. Geindexeerde adressering gaat op de 
volgende manier: Bij het adres wordt de 
inhoud van hit ^ ltidexregl«*ifir ^^0p^^ 
waarna het adres van de data ontstaat dus: 
D* Ata woont in het derde huis na bosweg 
9^ 

imt we in de bovenstaande beschrijving 
«»t^€n kun^em mi<e% op een 6502 

iisistrticties ile Intwrt twee cycli 

doormaken en instructies met een absolute 
adressering 4. Bij de 6502 is een cyclus 
precies een periode van de klok zodat een 
instructie met absolute adressering twee 
^m^m''Mmig duurt als een instructie die 
intern werkt, Wordt de adresberekening 
moeilijker, dan duurt het meteen ook lang- 
er. Als vuistregel toi«t u het volgende 
schema hanteren: 

- In de eerste cyclus wordt de opcode 
opgehaald (instructie fetch) 

- Als de instructie niet intern werkt, dan 
wordt in de volgende cycli het adres van 
de data berekent. Om dit te berekenen 

geheugen halen. Hlj kan bij elke cyclus 
informatie ter breedte van de databus 
ophalen. Heeft een 6502 dus voor de 
benadering van zijn operand 3 byte nodig 
dan zijn hiervoor 3 cycli nodig 

Als er voor de benadering van de data 
berekeningen nodig zijn, dan kost dit 
een extra cyclus (bijvoorbeeld het op- 
tel len van het indexregister bij het 
adres) 

- Het benaderen van de operand kost hierna 
evenveel cycli als nodig is om de ope- 
rand over de databus te transport eren 
(dus bij 68000 een operand van 32 bit 
over de 16 bit databus: 2 cycli). 



- Nadat de operand opgehaald is, moet de 
instructie nog uitgevooerd worden. Hij 
moet bijvoorbeeld nog bij de inhoud van 
de accu opgeteld worden. Vaak kost het 
uitvoeren van een instructie ook nog een 
aantal cycli. De 68000 bijvoorbeeld 
heeft een instructie voor het vermenig*- 
vuldigen. Deze instructie heeft, afhan* 
kelijk van de waarde van de ope ran den 
tot ongeveer 15 cycli (= 60 klokpulsen) 
voor alleen de uitvoering nodig. Bij de 
6502 heeft elke instructie voor de uit- 
voering slechts e§n cyclus nodig en 
meestal wordt dit gedaan ti jdens de 
opcode fetch van de volgende instructie. 
Zodoende heeft een ADC # (Tel bij de 
accu het volgende getal op) effectief 
slechts 2 cycli nodig; in de eerste 
wordt de opcode opgehaald in de tweede 
wordt de oper«yad_.lngjBlezen in ie 
derde nord^ ie optelling uitgevoetd. In 
4eze derde cyclus wordt echter ook al 
weer de volgende opcode opgehaald en 
gedecodeerd. Deze techniek wordt "Pipe- 
lining*' genoemd en werkt perfect zolang 
de processor weet wact Mj dm^olg^de 
opcode kan vinden, kortom zolang hij een 
programma van boven naar beneden af kan 
werken. 

In het bovenstaande verhaal is het ophalen 
van een instructie en de bijbehorende 
gegevens besproken. Laten we nu eens kij- 
k^nuli^ de instructie uitgevoerd wordt. 

Meestal is het zo dat de processor gege- 
vens uit het geheugen haalt en hier intern 
lets mee doet (bijvoorbeeld haal #efi getal 
uit het geheugen en tel dit bij een regis- 
ter op) of gegevens ergens uit de proces- 
sor in het geheugen schrijft (bijvoorbeeld 
schrijf de inhoud van een register in het 
geheugen). Bij het eerste type wordt het 
geheugen dus benaderd o^L.tf If z§% bij 
het tweede type om te scfiflj^eni Vet'der 
zijn er een aantal operaties die alleen 
intern binnen de processor werken en ten- 
slotte bestaan er ook nog een aantal in- 
structies waarbij de inhoud van een geheu- 
genp laat s gelezen wordt,/1ii^e gegevens 
worden gewijzigd en daarna worden de 
nieuwe gegevens teruggeschre ven naar de 
oude geheugenp laat s. Dit zijn de zoge- 
naamde "Read-Modif y-Write*' operaties zoals 
bijvoorbeeld: Tel 1 bij geheugenplaats iptil 
op (INC). Omdat het halen en brengen van 
gegevens uit resp. naar het geheugen vrij 
veel klokpulsen vragen, hebben processoren 
zogenaamde registers. In wezen zijn dit 
geheugenp laat sen binnen de processor. De 
6502 kent §§n register, bedoeld voor de 
bewerking van data. Dit register teff t 4e 

accumulator of accu. De 68000 heeft 
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Algemeen 



16 registers waarbij er acht speciaal voor 
het bewerken van data en acht speciaal 
voor het bewerken van adressen bedoeld 
mljiii* Het aantal bits In de registers is 
1^0$ sterk van de processor afhankelijk. 
Een 6502 heeft bijvoorbeeld een 8-bits 
accu en bij een 68000 zijn de registers 
allemaal 32 bit breed. Het werken met en 
op registers heeft als voordeel dat het 
veel sneller gaat; we hoev^ HiM^iiJk niet 
iedere keer het (voor de pTmBBBm} lang^ 
zame geheugen te benaderen. 

In het plaatje van de 6502 zien we naast 
de accumulator §§n van de belangri jkste 
feletjoieMtem 1© f r^^sasorEt.^ of 
lk^mMm&±<i thd Iibgf cal Ifeit* Bit tmrferdeel 
is verantwoordelijk voor alle bewerkingen 
op de interne registers met uitzondering 
van de programmat e 1 ler* De ALU doet dus 
het eigenlijke werk (optellen, aftrekken, 

elke processor voor waarbij, afhankelijk 
van het instructieset , de ALU natuurlijk 
meer en minder bewerkingen uit kan voeren. 
Verder kan de ALU uit pure electronische 
schakelingen bestaan of zelf ook iMier ^^i^ 
microprocesioi? .zljil net mm i^|ipi''{P^iiM^ 
maatje voor feet *itv0eten VBii^de itistruc- 
ties. Dit programmaat je heet dan micropro- 
gramma en is geschreven in microcode. Voor 
dit artikel Is dit verder niet vitm hmlm^* 

Be iiidei£reglsters X en Y uit feefc^plmat je 
zijn typisch voor de 6502. In bepaalde 
gevallen wordt de inhoud van ^ van deze 
registers opgeteld bij een adres zodat er 
een nieuw adres ontstaat. De meeste pro- 
cessors kennen wel WWI^ van geln- 
dexeerde adressering maar niet elke pro- 
cessor heeft speciale registers voor dit 
doel* 

%n de linker kolom hebben we dan nog §§n 
blcfkje niet besgtoken: Het stack pointer 
register w£ de sf«ck pointer* Bit register 
komt op elke processor voor waarbij de 
precieze uitvoering van processor tot 
processor verschilt. Het basisprincipe is 
als volgt: In de stackpointer staat een 
adres. Dit adres is de bovenkant van een 
stapel of stack. Als we nu tijdelijk lets 
ergens op wilXen bergen dan zetten we dit 
op de s^ipdi^ miB. als volgt In zijn werk 
gaat : 

Verlaag de Inhoud van de stack poin- 
ter met 1 

Schrijf datgene wat je kwijt wilt weg 
in de locatie die aangegeven wordt 
door de stackpointer 



Willen we het weer van de^ .mmi^ ^^Imlmmi^ 
dan gaat dat als volgt: 

Haal de inhoud van de locatie waama 
de st ack pointet li^lHl 0p 

Verhoog de stack pointer met 1 

In het bovenstaande voorbeeld wordt uitge- 
gaan van een stack die van hoog naar laag 
adrea loppt en dat de staak pointer naa.r 
de b^feUdte gevulde locatie Irljst. BIJ de 
6502 loopt de stack ook van hoog naar laag 
maar wijst de stack pointer naar de eerste 
vrije locatie. Verder is het natuurlijk zo 
dat als we op een machine met een (jiatabus 
van 16 btt«- eeii iWhitm^^g^m^'^rim m^^^- 
willen zetten, de stackpointer niet met 1 
maar met 2 veranderd wordt. Het basisprin- 
cipe blijft echter altijd hetzelfde en 
wordt wel eens verge leken met een prikker 
voor memo-brief jes, een ijzeren pen op een 
bijvoorbeeld houten voet, wmm w^m^:i^uBf^ 
jes opgeprifct ipc^en* let ken^iflfc iJ^an e^ 
stack is dat hetgeen er als laatste op 
terecht gekomen is, er weer als eerste 
iifgehaald wordt* i^Niiit l^ Mmt Quth 

«iNltt^ -iit tee#- f ■l^t|#' ^fetifne 4mi 
nog het processor status register^ Dit 
register wordt ook wel het vlaggenregister 
genoemd. De inhoud van dit register geeft 
aan wat de toestand van de processor na 
het uitvoeren van een instructie is. Als 
de la*t#fe i^tgevoerde Miieirklng als resul- 
taat # (ntll) had, dan wrdt dit aangegeven 
doormiddel van de Zero vlag. Had de laat- 
ste bewerking als resultaat een negatief 
getal (Hoogste bit 1, zie ook [A]) dan 
wordt dit aangegeven door middel van de 
S^ativ vlag* f ii^d#ir liti^gB^^ #|f e^ "pmmtt^' 
sors mlnstens een zogenaamde Carry en 
overflow vlag. Aan de vlaggen kunnen wij 
en de processor dus zien wat er aan de 
hand is en of bepaalde stukken programma 

Als^ 1ti^#te vlndeti m re^ti bdven In het 
plaatje een blokje met interrupt logic. 
Een interrupt is het onderbreken van het 
normale werk van een processor om hem 
eerst lets anders te laten dofi;if Qyer 
interrupts vmlt eeht#r aweel ^if^ifi^ 
dat ik dat graag in een volflrnde af lef^-^ 
ring van de serie wil doen* 

Zo, al met al heb ik nu ruim vier pagina's 
volgeschreven over de logische opbouw iriii 
mm processor waairjbli Ik vppral uitgegaan 
tien van de 6502. Ik denk dat het nu toch 
wel zijn plaats is aan te geven wat de 
verschillen met andere processoren zijn. 



Ik denk dat deze verschillen eigenlijk 
heel klein zijn. Een processor als de 
68000 of de 8088 heeft wel meer registers 
maar in het gebruik maakt dat weinig uit. 
Si| een 6502 moeten we tussenresult at en 
terugschrljireii naar h#t gebi^geiiy jte^wljl 
we blj d# ^8000 ge\fom een ^Met^TMgister 
nemen maar aan het principe van de werking 
verandert in wezen niets. Een tweede ver- 
schll is natuurlijk het aantal bits in, 
met ma]i& de accumulator. Als er in een 
treglitef^^iii^ir M^s f^pg^elSLgm • tainnen wor- 
den, worden sonnnige dingen eenvoudiger te 
programmeren waardoor de zaken sneller 
afgehandeld kunnen worden. Ook de adres- 
seermogelijkheden verschillen zeer sterk. 
Slke pimmBBm heeft zijn eigen specif ieke 
set adresseennogeli|kheden en daar wil ik 
in de komende af leveTlng nog op terugkd- 
men. Verder is het natuurlijk zo dat de 
ene processor andere instructies heeft dan 
de andere. Een 68000 kan bijvoorbeeld twee 
gebele get al leu op elkaar delen en de 6502 
leaf! #tt iSifik «*fliw?r tilet dat veel 

mensen deze mogelijkheid op de 6502 missen 
want op een 68000 wordt hij vrijwel nooit 

gebruikt In mijn artikel over RISC en 

CISC wordt uitgelegd dat veel instructies 
#ig#iilljk erg slecht is en dat we veel 
beter een beperkt, goed uitgedacht iu'- 
structieset kunnen hebben. 

Af sluiting. 

Ik denk dat 4§ iuhoud vau dit artikel zeer 
pittige ko§t^ M^tiSifta Mm itht precies 

willen weten wat er in>llli|' computer ge- 
beurt, zouden toch de moeite moeten nemen 
dit artikel te lezen en te proberen het te 
begrljpen. Verder vindt ik dat als je echt 
i$Lm^' in:^ i^^mmim^ ' - iitt- '-' f i^oce ssot^ 
komeii^ - dat je toch B&m In assembler md«t 
programmeren. Je bent €an gedwongen 
instructieset en de adresseermogelijkheden 
van de processor te bestuderen. In dit 
kader wil ik voor 6502-ers verwljzen naar 
de art Ike leu van Antoine Megeus en voor 

Vries die toegezegd heeft het programmeren 
in assembler ook te zullen behandelen. 
Voor 68000-f anaten (waartoe ik ook behoor) 
zal ik in de nabije toekomst wat meer aan 
"Wd^^'MM i^i#i!f#Mi#Mi ^mt- gaan 
d6en« ■ 

In de volgende af levering van deze serie 
zullen we ons bezig gaan houden met adres- 
seermethoden en instructieset s waarna 
Aaarna iiaaischijnlijk de txjd rijp gewor- 
ifif cte eett# l^es aala 1/6 te gaan doen. 
U ziet, de excursie door de machine is nog 
laog niet ten einde, tot de volgende keer 



Ans. 

JP.S . Laat me eens weten wat u van deze 
art ike 1 enr eeks vindt. Is het te moei- 
lijlr; ^ te )5«waidbeliffc^^^^d^^ vind u dat 
hetgeen u wilt weten niet aan bod 
komt. Hierbij is mijn eigen doelstel- 
ling nog steeds gelijk aan zoals ze 
in de eerste af levering geformuleerd 
is: het inwijden van beginn^m 4m 
werking van een computer. 

Wilt u reageren, dan kunt u mij het 
beste schriftelijk of via het bulle- 
tin board benaderen. Telef onisch is 
ook mogelijk waarbij er een tamelijk 
$itm€' WemM i^ataat ^iat ilt niet tlmis 
ben. U kunt dan het beste aan mijn 
vrouw vragen of ik u terug wil bel-- 
len, wat Ik dan ook zeker zal doen. 

I: G. vati Opbroek: CTBC 6it Sli§» -mm 
inleiding, De 6502 Kenner 57, pag. 28 

(augustus 1988) 

2: Synertek Inc.: SY6500/MCS65p0 Micro- 
computer Harware Manual 
1976) 

3: Rockwell: R650X and R651X Micropro- 
cessors (CPU) datasheet Rev. 7 (okto- 

r ' • ib^rlii*). ■ ■ , ^-1 ■ 

4f G. van Opbroek: Getallem ieel i » #e 
6 502 Yimmmx nr. 58 pag. 34 (oktobet 
1988 
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Dit programma is enkel en alleen een aanpassing van een prcDgramma dat in Elektuur 
gestaan heeft. De bedoeling was om een tracer te maken zonder hardv>»are aanpas- 
singen/toevcDegingen en waarbij het mogelijk zou zijn bepaalde gedeeltes niet te 
tracen, want dit programma volgt letterlijk alles, ook alle subroutines in bv. de 
BIOS. Voorts zou een ingebouwde disassembler ook welkom zijn en zo heeft iedereen wel 
zijn wensen. Ik was al blij dat dit programma werkt en hoop mijn Xychtt^i*ftftlifl S^fc 
op de aarde te zetten. liisschien lukt u dat wel beter/sneller. ni n 

J 6502 tracer 

i Elektuur feb. 1984, biz* 66 ' 
I door J. Ruppert 

I aangepast voor I305&5 door Fr» V«nd»k#rkh©v« 



; file: Tracer. mac 

; 

; as Tracer. mac 

; lo Tracer. bin 

; go 500 



I Werking: 

J #it programma lopp^i, ifttftructie per instructie, door een 

; ander te tpsten programmii waarvan het startadres wordt 

; opgegeven* Programma ond#rbr©kingen t«irlm BRK, IRQ en NMI 

I ziin nimt tdegelateri^ 

I Dit programma moet in RAM staan: 

I de instructie met zijn operand, uit het test programma, 

I worden in een testveld (label lb619, lb61a en lb61b) 

I geplaatst en gevuld door een geforceerde break- Hierdoor 

J (de BRK) wordt alles gesaved en uitgeprint. Dan wordt 

; de volgende instructie opgehaald, de bewaarde waarden 

I worden teruggezet en deze nieuwe instructie wordt 

} uitgeyoerd. Bij het ophalen wordt nagegaan op speciale 

i instructies zoale JSR, RTI, RTS, JMP, JMP-IND, en 

I brarichem die een speciale behandeling kriJgeftii 

i - alie far«nch inatructies, gepXaatst op labul ••fertsf 

J krl J'lfWi mm. urnrn^ off«rt- ^mn %Q^m Wur^t- mt mmm #e 

I voorv*aarde s^mliimmn^ d«n Kerwkent tr*e#r li^^ni IBRI 

5 voert die uit, ofi^el gaat tracer gevioon verder in het 

; programma. 

; Dit tracer programma begint op het adres ^500. Het start- 

; adres van het te testen programma wordt in een pointer 

; (*OOED en $OOEE ) gezet. Deze pointer wordt gebruikt om de 

; instructies in het tes tprogramma op te halen en kan ale 

; een pseude programma counter beschouwd worden. 

; De volgende RAM-plaatsen zitten midden in het programma: 

} Ib6l9s inetertifetie veld 

I lb61a: operand 

; lb61b: idem 

i lb61c : 00 I force a break 

; brtst: test field voor branches 

; brffs: vaste offset van $03 

; De volgende RAM-plaatsen bevatten variabelen: 

; pnt en pnt+1: de pointer/pseudo prog, counter 
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lb713 status wordt hier uitgeschoven om uit t© printen 
lb714 stack pointer na beh. van een instr. 
Ib715 ? 

Ib716 lengte v/d instructie minus een (1) die afgeteld word 
uitprinten van de instructie na een break 
of save stack-data bij stack printing 

lb717 ? 

Ib718 instructie veld 

lb719 operand - 
lb71a operand r 
lb71b accu na beh. van instr. 

Ib71c Y-reg 
lb71d X-reg 

lb71e instr. lengte om de programma teller te verhogen 
lb71f ? 

Ib720 status na beh. van instructie - 
lb721 instr. lengte van pas gevonden instructie 
lb722 ? 

P.S.: De namen van deze parameters komen overeen met hun 
origineel adres in het oorspronkel i j ke programma; 
bv. s "lb718" was in het orxginele programma een 

ftANpI^aiw (t071©| mmmr die Instructie stondj im 
programma wordt hmt instructie veld aangsduid 
met "label 718". 

*3K* D0S65 2.01 subroutines *«* 



t bij het 



*C026 
$C023 
*C02F 
*C032 
$C038 
$C03B 
*CQ3E 



inecho equ 

out equ 

crlf equ 

spa equ 

hexout equ 

print equ 

aschex pqu 

i . 

; **» ^riables %t$ 

m 

org *00ed 

5 

pnt res 2 
'org $0500 



get and put character 
put character 
print cr and If 
print a space 
a hexout 

print string after call 

a ascii > .frm^- 



pseudo prog, counter/pointer 



main 



i®r 



t 
1 



Ida 


#$00 


reset the pointer 


mta 


pnt 




sta 


pnt+1 




print 

fi|:;C 










jsr 


inecho 


wait for a input 


cmp 


#$0d 


cr ? 


beq 


endst 


end of input startaddress 


jsr 


loupch 




jsr 


aschex 




bcs 


1 . b 


not a hmx 


Idx 


#*04 


hex in low nibble > high r^iiiiie 


as la 




dex 






bne 


2.b 




Idx 


#$04 


rotate hex in ipln^pr 


as la 




rol 


pnt 


rol 


pnt 4-1 




dex 






bne 


3.b 




beq 


l.b 





in 



iEinclst 



Ida 



1 
I 



jsr 
fee 
fee 

fee 

#*00 

Idy 
sta 
dey 
bne 



print 

•Oc clear m-rmmmn 

'4502 - ter*c«r\r' 

mn. -t^TR.- sA :Y NV BDIZC mmM%1^^" fi 



#$0f 
lb713,y 

1 .b 



clear ram from lb713 untill lb722 



Ida 



imp 



# ( irqrt&255 ) -1 overlay software interrupt routine 
sta $e76e lnt^pc:-"l& 

Ida #irqrt>>8 
sta $e76f 



«*f f 
txs 

newinst 



clear stack 



f 

} 
■ 

9 

5 

9 

t 
I 

; 
I 
f 
} 

9 

5 
5 
5 

irqr t 



Na het initial iseren , het ophalen van de eerste instructie 
(en daarna na elke uitgevoerde instructie) volgt een 
geforceerde break, waardoor het programma in dit gedeelte 
komt. (En er nooit meer uitgeraakt, want het tracer 
programma volgt nu het test programma met al zijn 
subroutines ed . ) Het tracer programma kmn het beste 
cipdartor worden met ^Cm (Control— C) 

*** irq routine after a break »** 

door een brk worden de program counter en de status 
op de stack bewaard. 

save accu 

get status from stack 
and save it 

destroy old return address 

save y-reg 
save x-reg 
get stack pointer 
and save it 

set binair mode (could be el^iifi^mi D 

print instructie met operand, dan accu, y-reg en x-reg. 
(het adres, de pointer, wordt bij het ophalen van e#rf 
nieuwe instructie gedrukt.) 



sta 


lb71b 


pla 




sta 


lb720 


pla 




pla 




sty 


lb71c 


stx 


lb71d 


tSM 






lb714 


eld 





1 

2 



Idy 



3 
4 



tt«03 

Ida 
jsr 
J«r 

tny 

bcs 
Ida 
bne 

jsr 
jsr 
jmp 
dec 
cpy 
bne 



lb715,y 
hex out 

spa. ' 

lb71& 

3.f 

spa 

spa 

2.b 

lb716 

#*09 

l.b 



=lb718. . . 



lengte van instruetle mimis een 



Ida lb720 get saved status 

and #$cf iMak brk-flag 0 

sta lb713 save it to shift 



it out 
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Idx 


#$08 


1 


asl 


lb713 




b^cg 


2.f 




Ida 


#' 1 




tone 






Ida 




B 


isr 


out 




dex 




m 


bne 


1 . b 


jsr 


spa 




f 

Ida 


1 b714 






jsr 


hexout 




Ida 


# ' - 




Jsr 


out 




tsx 






CpK 






bc:s 


newinst 




pi a 






sta 


lb716 




mi 


hexout 




cpx 


#*f e 




bcs 


1 . f 




pi a 






pha 






jsr 


hexout 


1 


Ida 


Ib7i6 




pha 




nfrwxnsx 


jsr 


cr i T 




tm 


pnt^i 




Jsr 


hexout 




Ida 


pn t 




Jsr 


hexout 




Jsr 


spa' 


i 

; haal 


nieuwe 


ins true tie 



print 8 bits of the stiiiiiii 
shift bit in carry 

cairry set » print a 1 

carry clear « print a paint 



loop for 8 bits 



get stack pointer 

and print it 



print a 

stack pointer in X-f^m$ 

branch if stack is empty 
get data from stack 
save it 



get next data from staiili^ 
put it back 
and print it 

get previous data from the stack back 
and put it on stack 



print pointer ( ps. p .counter ) 
and print it 
get low byte 
and print it 



Idy 



#•00 
Ida 
sfc^ 
sty 
sty 
sty 
Jsr 
sty 
tya 
sta 
dec 



[pnt] ,y 

lb61a 

lb41b 

lb71a 
instl 
lb71e 

lb716 
lb716 



get new instruction 



bepaal de instructie lengte 

bewaar instr . 1. om pnt te verhogen 

instr. 1 in accu 



lengte minus 1 



J zet nieuwe instr. met operand op 1 b619/ 1 b61a/ 1 b61b en 1 b7i8/ 1 b719/ 1 b7ia 

timi thstruc tie/operand 



dey 
Ida 
sta 
sta 
tya 
bne 



Cpnt] ,y 
ib619,y 
lb718,y 

l.b 



ttf verhoog pseudo programma teller (pointer) *»* 

verhoog pointer 



inc 
bne 
inc 
dec 
bne 



pnt 
2.f 
pnt-»-l 
lb71e 
l.b 



vm^tmm§ l«ngte instructi« 
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D0S ^ 6S CoRiiEii 



*♦* filter sprongen uit *** 

Ida lb718 haal instr. uit test veld 

and 
hnm 

CHIP 

6»ci 
cmp 
beq 

cmp 
beq 
and 
bne 



tstjmp 



Ida 
cmp 
beq 
cmp 



#$0f 


heboud Ion nibble 


tstjmp 




lb718 


haal opnleuw de instr. 


#$20 


Jmr 7 


2.f 


bmhmmdml |«r-instr. 


m4Q 


rtdE ' 


3 if 


befwmcfffl d» rti-instr . 


#$&0 


rt» ? 


4.f 


behandel de rts-instr. 


#$10 


branch instr. ? 


5.f 


behandel branc h-instr . 


lb718 


haal de instr. 


#$4c 


jmp ? 


6.f 


behandel de jmp-instr. 


#$6c 


jmp ind. ? 


7.f 


brhandel ^ jmp ind.— instr. 



Idx 
Idy 
Ida 
pha 
Ida 
pip 



lb71d 
lb71c 
lb720 

lb71b 



get previous X-reg 
get previous Y-reg 
get previous status 

and put it on stack 
get previous accu 

status has now its previous^ VillLllI 



*** execute instruction, closed by a break *** 



9 
9 

ib619 
lb61a 
lti41b 

f 

i «tt 

2 



3 
4 



6 



■ftx 



1 

1 
1 
o 



ins true tie veld 
cipwraind/OO (brk) 
operandi / 00 (brk ) 
00 (•tirfcj 



behandel de jmr- instr. *** 

Ida pnt 
pha 

Ida pnt-t^l 
pha 

j m|i 6 . f 

behandei €m rfel^inmtr. 
pla 

mtM lb720 
behandel de rts-in»tr. ««* 



zet ps.p-cnt. op stack 
naar behandel de jmp-instr. 



pla 
sta 
pla 
sta 
Jmp 



pnt-»-l 



r. 



nt 



behandel de jmp-instr. ♦»* 



Ida 

»:ta 
Mm 
sta 



lb61a 

fbMb 
pnt-M 



execute pseudo jmp or jsr 
to the address given by 
the operand on the test field 
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I til plaiitM men l^rk instr. op hm% test veld fff 



9 


Ida 


#$00 








sta 


lb619 




. - . . . , _ • r • 




jsr 


crlf 








Idx 


#$05 






1 


jsr 


Spa 








dex 










bne 


1 .b 








jmp 


prex 




prepare for execution 




ti@hiAnd@ 1 


e An i m n n H 


m ^ ^ 








1 HA t A 




IJUF Jl>0,uKf^ i ■14.x riK M^vrr AllU VwAvl ^ ^ 




sta 


pnt 






Ida 


lb61b 








sta 


pnt-^-l 








Idy 


#$00 








Ida 


[pnt] ,y 




laad het ind. address 




1- d A 








iny 










1 Ha 


L pn x: J , y 








Sta 


pnt+1 




ind. address = nieuwe pr. teller 




tMa 
















jmp 


9.b 






1 tit 


toehandel 


een branch 


instr 


• i ' ' ' ♦ ^■• 

a ]|( ]|( l)t' 




Ida 


1 b720 




get status 




pha 






to stumk 




Ida 


Ib718 








sta 


brtst 




zet branch test field 




pip 






status from stact to status 


J 3|( l(C J|[ 


execute 


branch instr 






brtst 


res 


1 






ferff« 


fee 


♦03 




offset * 3 




imp 


l.f 







; *** bereken relatieve sprongen **♦ 

; indien een voorwaarde geldig is, wordt door de offset van *03 
; na de te testen branch, steeds naar hier gesprongen. 



cli 
eld 

Ida lb61a get the offset 

bmi 2.f branch for neg. offset 

clc 

adc; pnt mtM real offset to 

sta pnt pseyde prog^ eount^er 

face l.f 

inc pnt-^l 

1 Ida #$00 

sta lb61a 00 in operand veld 

Jmp tstjmp 

2 clc 

adc pnt add neg. offset to 

sta pnt .|iiMttyia«'pri3g. counter 

bcs l.b 

dec pnt+1 

bee l.b branch always 
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D0S-§5 Cmtmm 



♦** bepaal instructie lengte *** 



i instructie 
I mm mf laap 



blijft onvi 



^randerd in accu 



instl 


Idy 


#$01 




mp 


#$00 




1 . f 






#$40 






l.f 






#♦60 




beq 


l.f 




Idy 


#$03 




cmp 


#$20 




beq 


1 . f 




and 


#$lf 




cmp 


#$19 




beq 


l.f 




and 


»$0f 




tax 






Idy 


1 tbl 


1 


Sty 


1 b72 




rtm 




1 tbl 


fee 


f 02 




fee 


$02 




fee 


$02 




fee 


$01 




fee 


$02 




fee 


$02 




fee 


$02 




fee 


$01 




fee 


$01 




fee 


$02 




fee 


$01 




fee 


$01 




fee 






fee 






fee 


$03 


■ 


fee 


$03 


ib713 


res 


1 


lb714 


res 


1 


lb715 


res 


1 


lb716 


res 


1 


lb717 


res 


1 


lb718 


res 


1 


lb719 


res 


1 


lb71a 


res 


1 


lb71b 


rein 


• 1 • 
1 


lb71c 


reii' 


lb71d 


res 


1 


lb71e 


res 


1 


lb71f 


res 


1 


lb720 


res 


1 


lb721 


res 


1 


lb722 


res 


1 



lengte v#n brk,rti en rt« if 

brk ? 

rti ? 
rtm ? 

length van imp is 3 



behoud enkel de vijf laagste bits 
ihst. lengts is 3 ? 

behoud low nibble 

low nibble als index 

zoek op in lengte tabel 

tiejNaar dci gevonden instr. lengte 



fristr. 


lenght 


xs 


2 


instr . 


length 




2 


instr . 


length 




2 


instr . 


length 




1 


instr . 


length 




2 


instr . 


length 




2 


instr . 


length 




2 


instr . 


length 




1 


instr . 


length 




1 


instr . 


length 




2 


instr. 


length 




1 


instr. 


length 




1 


instr. 


length 


m 


3 


instr. 


length 




B 


instr. 


length 




3 


instr . 


length 




3 



een ( 1 ) to p^illt instr, 



to print status 

instr*. 
? 

instruetiH mitM ■ 
aperand 
operand 

aeeu nm tmhm vwn instr* 
Y-reg ^ 
X-reg 

instr. 1. to incr. prog, cnt 

7 ■ ' _ . . . 

status na beh. van instructie ;t 
ln«tr. l»ngte van pas gevpnden instrwc^fei^ 
7 



4S 



Demo van J. Ruppert 



can, 



3 
8 



$0200 




7 BEQ 


6.f 








5 


BEQ 


7.b 


LOA 




4 


BEQ 




TAY 




6 


JSR 




TAX 






SEC 




LDA 


#$09 




NOP 




STA 


$00 




JMP 


9.f 


SED 






NOP 




CLC 






NOP 




ADC 


$00 


subrl 


JSR 


subr2 


DEX 






RTS 




BNE 


l.b 


subr2 


RTS 




ROLA 






JMP 


subrS 


RDRA 






JMP 




SEC 




m 

f 








$00 




org 




iSEY 




• 




BNE 


2.b 


i 


BCS 


4.f 


SBC 


$00 


1 


BCS 


2.f 


CLD 




subr3 


BCS 


l.b 


BEQ 


3-f 


2 


BCS 


3.b 


BEQ 


4.f 


4 


Jf^ 


Cvect] 


BEQ 


5.f 


vect 


fee 


*00 








■ fm 


$02 



I 

and nwtin 



f 


















0214 


88 














t 






0215 


DO 


1 






de 


tracer met aim 


1 




0211 


38 


1 


















0212 


E5 


f 
















0214 


88 




go 500 














0215 


DO 




Startaddress : 


«20O: 










0217 


E5 




















0219 


08 




6502 


- tracer 














021A 


FO 




mm. 


-INBTR.- 


sA 


lY 


:X 






021C 


FO 




















0224 


FO 




0200 


A9 03 


03 


00 


00 




FF- 




021E 


FO 




0202 


AS 


03 


03 


00 




FF- 




0222 


FO 




0203 


AA 


03 


03 


03 




FF- 


l 


0220 


FO 




0204 


A9 09 


09 


03 


03 




FF- 


i 

1 


0226 






0206) 


85 00 


09 


03 


03 


■ ■•••••a 


FF-* 




20 




0208 




OS 




03 




FF- 


; 








0209 




m 




03 


■••■Xaaa 


FF- 


i 






020A 


65 00 


18 


03 


03 


■ ••■JLaaa 


FF- 


1 








020C 


CA 


18 


03 


02 


• •■•JL«** 


FF- 




60 




020D 


DO FA 


18 


03 


02 




FF- 




0233 






0209 


18 


18 


03 


02 




FF- 






60 




020A 


65 00 


27 


03 


02 




FF- 




0229 


38 




020C 


CA 


27 


03 


01 




FF- 




022A 


EA 




020D 


DO FA 


27 


03 


01 




FF- 




022B 






0209 


18 


27 


03 


01 




FF- 






4C 




020A 


65 00 


36 


03 


01 


• •■■Xaaa 


FF- 




0235 






020C 


CA 


36 


03 


00 


• •■■XaJ.* 


FF- 






4C 




020D 


DO FA 


36 


03 


00 


• • • ■ X • « 


PF- 




0300 


BO 




020F 


2A 


6C 


03 


00 






.1 


02FE 


80 


f 0210 


6A 


36 


03 


00 


m » m • • 




1 


0302 


BO 


i 


OZll 


38 


36 


03 


00 


■ ■•■JLaaX 


FF- 




02FG 


m 


i 


0212 


E5 00 


27 


03 


00 


••aalaal 


PF- 




0304 




i 


<«14 


88 


27 


02 


00 




FF- 






6C 


m 

f 


0215 


DO FA 


27 


02 


00 




FF- 




0200 


A9 


5 


0211 


38 


27 


02 


00 




FF- 




0202 


A8 


• 


0212 


E5 00 


18 


02 


00 


■ aaaJ.aaAi 


FF- 




0203 





00 
00 
00 



18 01 
18 01 
18 01 
09 01 00 
09 00 00 
09 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 



.... 1 1 FF- 
.... 1 .. 1 FF- 
.... 1 .. 1 FF- 
• • ■ • X • • ^ jF ^ *^, 

. . . .1.11 wk; 

1.11 FF-; 

1.11 FF- 

11 FF- 

11 FF- 

11 FF- 

11 FF- 

11 FF- 

......11 FF- 



m..-m * * « XX 



m 'fp 00 : M .# .11 




FC 



00 00 00 

00 00 00 
00 00 00 
00 00 00 



00 00 00 
00 00 00 

<ao 00 00 
00 00 



03 00 00 
03 03 00 



...11 FD-0229 

...11 FF- 
,..11 FF- 
...11 FF- 

...11 FF- 

...11 FF- 
,..11 FF- 
...11 FF- 
,..11 FF- 
...11 FF- 

...11 FF- 
...1 FF- 
.,,.1 FF- 
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IB EST EST IS 



NS-DOS 



Door: Nico de Vries. ' 

In het vorige deel kon een bescheiden uitleg gevonden worden over het hart van de 
IBM-PC(/Xr): de intel 8088 CPU. We konden hierin lezen dat deze CPU een 8-bit CPU is 
(ondante dat de meeste mensen vinden dat de PC(/XT) een 16-bit machine is) en dat de 

8088 1 Mbyte geheugen kan adresseren. Daamaast heeft de CPU de mo^elijkheid om 
maxima a 1 64k aan I/O te adresseren, buiten de gewone geheugenmap om. Dit laatste is 
een typisch intel feature: bij de meeste andere populaire processoi?eB ymi mderm 
merken (w.o. de 6502) bevindt de I/O zich gewoon in de geheugenmap. 

Met alleen een CPU heb je geen computer. Er moet van alles om heen: geheugen (liefst 
veel tegenwoordig) in de vorm van RAM en RDM, I/O onder andere bestaande .uit video 
kaarten, diskcontrollers en BS-232 poorten en nog zo wat lOTite eleol^Siliii^^ iiiiidit 
bij de rc/Xr is georganiseerd komt in dit deel aan de orde. 



Mechanischfi opbomy. 

Als e^ .PC(/Xr) qpamoaakt, dm mim 3m 
het volgaide: 



R 



Voeding 



floppy 
B: 



Helemaal onderin de kast, links, ligt 
een relatief grote printplaat met een 
behoorlijke hoeveelheid IC's erop. Dit 
is het moederbord. Het moederbord neemt 
ongeveer 60% van het vloeroppervlak van 
de kast voor zijn rekening. Op het 
moederbord zit zoals te verwachten de 
8088 CPU. In de tekening is plaats waar 
ib CPU zich bevindt bij de mee^SB Isiomn 
mmgegeven wmji^ CPU met uP. 

Baa^t da dpf I« meestal een leeg 40- 
pins voetje ganonteerd^ dat bedoeld is 
voor een extra processor: de &^ 
floating point coprocessor (hierover 
later meer). 

Midden op de moederbord bevinden zich 
meestal 2 of 6 voetjes voor ROMs. In 
echte IBMs zitten hierde ROMs met het 
BIOS (hierover later VEEEEL meer) en de 
Microsoft BASIC interpreter. Oude 
moederborden bezitten 6 voetjes waarvan 
5 gevuld met 8kx8 ROMs, de nieuwere doen 
het met 2 voetjes: 1 voor het BIOS 
(8kx8) en 1 voor de BASIC interpret 
(32kx8), De meeste klonen ontberen om 
copyright redenen de BASIC ROMs, en 
bezitten slechts een BIOS, die vrijwel 
altijd in EPRDM zit. Wei hebben alle 
klonen de mogelijkheid om BASIC (EP)RDMS 
later toe te voegen. Het BIOS RDM 
bevindt zich bij de meeste mainboards op 
de plaats gemerkt met R. 

Meer naar voren bevindt zich op het 
moederbord het ElAM-geheugen, opgebouwd 



hankelijk van de ouderdom en herkowft 
kan het RAM zowel in grootte, als in 
samenstellin^ behoorlijk varieren. Alle 
ustohines bezitten pariteitscontrole op 
het RAM: reden waarom een PC steeds 9 
stuks DI?AMs per bank heeft (een AT, die 
immers echt 16 bits is uiteraard lo). 

De eerst IBM PC bezat vier RAM banken, 
die af hankelijk van de kapitaalkracht 
van de koper al of niet gevuld waren. 
De kleinste machines waren 16 kbyte 
(echt waarl) en hadden 1 bank met 4116 
DRAMs. Was het mainboard vol, dat zaten 
er 4 banken met 4116 's in ofwel 
64kbyte. Dergelijke PC's duiken soms op 
op de tweedehands markt. De volgende 
generatie mainboards was lets beter op 
dit punt: leverbaar met 64 kbyte (1 
bank 4164's), 128 kbyte (2 banken) of 
256 kbyte (4 banken, dus vol). 

Wil je groter bij IBM, dan komt er een 
geheugenuitbreidingskaart aan te pas. 
Zo niet bij de latere generaties 
klonen: de meeste kunnen de maximale 
640 kbyte RAM op het mainboard bergen 
door 2 banken 41256 's en 2 banken 
4164 's. De laatste generatie XT-klonen 
heeft 2 banken met 41256 's, en de 
laatste 128k wordt opgebouwd uit 4 
stuks 41464 (64kx4) en twee stuks 4164 
voor de pariteit. 

Aan de achterzijde van het moederbord 
bevinden zich de uitbreidingsslots. In 
de oer-PC zaten 5 van deze slots, die 
zijn uitgevoerd als 62-polige card-edge 
connectors. De PC/XT en nagenoeg alle 
klonen hebben 8 slots. In deze slots 
kunnen allerlei kaarten gestoken 
worden, waardoor de machine aangepast 
kan worden aan het gebruiksdoel . 

De achterkant van de kast wordt verder 
gevuld door de voeding, die altijd van 
het schakelende type is. De karakteris- 
tieke rode netschakelaar steekt aan de 
zijkant door een opening in de kast 
maar buiten. De voeding heeft in deze 
meeste gevsllp? , 0m totaal uit- 
gangs^etmgm mn HM Watt. Vroege PC's 
van IBM hebben soms een 83 of 100 Watt 
voeding. Sommige modeme klonen 
bezitten een 150 Watt Vil©i3j?ig, en dat 
terwijl de CMOS oprukti 

De rest van de kast wordt opgevuld 
door de disk drives. Echte IBM's hebben 
tme full' height fla^ppy drives of 1 
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floppy drive en een 10 of 20 Mbyte full 
height Winchester. De lieeste klonen 
hebben slim-line drives. Nagaioeg alle 
kasten hi^^d;;^ plaats voor ^mm £uXl 
height, of 4 slim-line drives. '^" 
Tot zo ver de mechaaiische opbouw. We 
gaan nu eens verder kijken wat er zich 
wmi^mmm^ noederbord b^^^indtv 

t,f I. iifti^ de 8284 en de ^iit 

De CPU kan zijn werk niet alleen doen. 
Hij heeft niet alleen geheugen nodig, 
maar ook een aantal besturingschips. Nu 
is intel op dat punt een rare fabrikant: 
voordat 801% lam werken l^iMi wit iicg 
tuee zogenaamde supportchips aan te pas: 
lie 8288 bus controller en de 8284 clock 
generator . Hmm iniBe maatstaven is dit 
raar: Bio bijrm Mile processors, dias ook 
; de 6502. zijn deiM jiaasw.. 
aanwezig. Maar goed. 

De 8284 is de clock generator. Deze 
chip bevat een kristal oscillator die 
een timing generator aandrijft. Verder 
zit er een aansluiting op voor een 
exteme clock, waardoor je met een TTL- 
signaal kunt omschakelen van de kristal 
oscillator naar de exteme clock en 
terug. Dit is het geheim achter de 
omscnakelbare clocksnelheid van de 
meeste zogenaamde Turbo-klonen . De 
kristal frequentie wordt in de 8284 door 
drie gedeeld, waama de CPU-clock 
frequentie ontstaat. Originele IBM's 
lopen op een frequentie van 4.77 MHz, 
een op het eerste gezicht vreemde 
waarde. Dit zit zo: 

De Amerikaanse kleurentelevisienorm 
heeft een kleurdraaggo If frequentie van 
3.58 MHz. Op deze frequentie in het 
beeldsignaal wordt de kleurinformatie 
overgedragen . De ?C kan worden uitgerust 
met een kleurenkaart (CGA kaart, zie 
later), die ook een signaal kan maken 
volgens de Amerikaanse kleur en-TV norm 
(NTSC). Dan heb je dus e^ frequentie 
nodig van 3.58 MHz. Om symmetrische 
golfvormen te verkrljgen, moet je zo'n 
signaal maken door een hogere frequentie 
te delen. De IBM-PC dee It door vier, 
ofwel de kristal-f requentie is 4 x 3.58 
is 14.318 MHz. Zo'n kristal is dan ook 
op het moederbord te vinden: kijk maar 
eens in de buurt van de 8284, het enige 
18-pins IC op het bord. Zoals gezegd 
deelt de 8284 de kristalf requentie door 
drie zodat de CPU clockrate 14.318 / 3 
is 4,77 MHz wordt. Er wordt nog verder 
edeeld in de 8284. Ten behoeve van df 
/O chips, die meestal niet zo &n0l 
zljn, wordt de CPU clock ook nog eens 
door 4 gedeeld, zodat er ook een signaal 
met een frequentie van 4.7*? / 4 is 1,19 
MHz ontstaat . 
Turbo klonen hebben behalve het 
standaard kristal van 14.318 MHz ook nog 
een tweede kristal. Voor een 6.67 MHz 
turbo PC is dat dus een 20 MHz, voor 8 
MHz turbo 24 JB|g^ m mor em 10 MHz een 
30 kristal. 



De laatste functie van de 8284 is de 
afwikkeling van de CPU cycles^. De 8284 
heeft hiervoor ingangen waifi^^ gemeld 
kan worden dat de huidige cycle kan 
'w)rden afgemaakt. Heeft men langzaam 
geheugen, dan stelt men dit signaal 
eenvoudig 1 of meer clockcycli uit, 
waardoor de CPU gewoon blijft wachten. 
Deze cycli worden dan ook wachtcycli of 
wait-states genoemd. De PC(/XT) werkt 
zonder wait states in RDM, 1 wait state 
in DRAM en 2 wait states als er met I/O 
gewerkt wordt. Een ROM-cycle .duurt dan 
de minimale 3 clockcycli, een RAM cycle 
4 clockcycli en een I/O cyclus 5 
clockcycli. 

De tweede supportchip is de 8288 bus 
eontroller. Deze chip zorgt voor de 
gmeratie vmm dm timing op de bus en 
zorgt ook voor signalen om de gemul- 
tiplexte adres- en databus van de CPU 
te de-multiplexen. Verder wekt de 8288 
de signalen op voor MEMRD, MEMWR, lORD 
en lOWR (dus geheugen lezen, schrijven 



3.3, De perifegieclHPSj rift ffilfift, rift 
^Sff , rift W!^ m ^ 

Eigenlijk vormen de 8088, de 8284 en 
de 8288 samen de eigenlijke CPU. Naast 
ROM en RAM heeft de CPU ook verbin- 
dingen met de buitenf^reld nodig om 
zijn werk zinwl te koimen doen. By de 
6502 bedienen we ons van PIA's, VIA's 
en ACIA's en nog wat van dat spul, bij 
de 8088 is het nauwelijks anders. Op 
het moederbord vinden we vier peri- 
feriechips uit de intel-stal: 

8255 parallelle I/O 
8253 timer chip 

8259 interrupt controlli^ """^ 
8237 DMA controller 

Hierbij twee relatief onbekende 
begrippen: DMA controller en internet 
ccxitroller. 

Een DMA controller is^^ ^ een soort 
miniatuur CPU, die direct het geheugen 
kan bereiken. Je kun hem gebruiken om 
bijvoorbeeld vanaf een diskcontroller 
rechtstreeks het geheugen te laden, 
zonder tussenkomst van de CPU. Omdat er 
maar 1 device tegelijkertijd de baas 
over de bus mag spelen, wordt de 8088 
CPU in zo'n geval tijdelijk buitenspel 
gezet, via de stuurlijnen van de 8284. 
De DMA controller heeft een set 
registers aan boord waarin het geheugen 
idres en de hoeveelheid data wordt 
ingesteld. Ook zijn er registers voor 
het bestemmingsadres. De 8237 DMA 
controller heeft 4 kanalen, die ieder 
hun eigen set adresregisters hebben. De 
chip kan drie soorten DMA doen: van 
geheugen naar geheugen, van I/O adres 
naar geheugen en van geheugen naar I/O 
adres. Verder kan de 8237 niet alleen 
lezen en schrijven maar ook een verify 
(block empmey aitvoe^. In de 
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PC(/XT) wordt de DMA controller iiiat 
alleen 'normaal' gebruikt voor bijvoor- 
bee Id disk I/O maar ook voor een 

bijzondere taak: de refresh van de 
dynamische RAMs. Dit gebeurt als volgt: 
1 van de kanalen (kanaal 0) wordt 
ingesteld op een start source adres van 
0, een count van $FFFF en een be- 
stemmings adres van 0. Dat kanaal wordt 
verve Igens ingesteld op block move, 
ledere keert als er nu een DMA-aanvraag 
voor dat kanaal binnenkomt, gebeurt er 
at^ blQck move vanaf adres 0 over een 
bldii 'ditn 64 kbyte. Weinig zinvol zou je 
zeggen maar dat is niet zo: omdat het 
volledige 64 kbyte blok wordt afgewerkt, 
ondergaan alle DRAM adressen een lees- 
en een schrijf operatie. Slaat men het 
DI^AM datasheet erop na, dan blijkt dat 
iedere locatie de gelezen wordt, 
automatisbh gerefreshed is. Niet alle 
DFlAMs in het systeem word en geactiveerd 
(alleen de eerste 64 kbyte), maar wel is 
het zo dat alle mogelijke flAS-adressen 
een keer gegenereerd worden en dat alle 
DI^s ook werkelijk een RAS krijgen. 
Behalve snelheid en eenvoud lever t dit 
nog mm W^misi^l fg: in plaats van 3 
adresftf ^-ff^*- im&&- mit refresh adres) 
hoef t men nu no^ maar twee adressen te 
multiplexen: rij en kolom. Ook heeft 
deze methode als voordeel dat eventuele 
geheugen kaarten op de I/O bus automa- 
tisch mee-gerefreshed worden: ook deze 
kaarten genereren een complete set RAS- 
adressen . 

De tweede voor ons vreemde chip is de 
8259 interrupt controller. Net als de 
6502 heeft de 8088 maar 1 echte 
interrupt aansluitin^: de INTR-pin. Nu 
tepi je, net als bij de 6502 gebruike- 
M|k, alle interruptbronnen hierop 
ilrtigjjaitifi en bij m[% iufcairrupt gaan 
ait^^^k^ wie et mm da bel heeft 

Setrokken, maar het kan ook mmkm^^ m 
aarvoor is de 8259 bedacht. 
De 8259 heeft 1 uitgang, die verbonden 
is met de CPU INTR-pin. Verder zijn er 
acht ingangen, die IRQ tot en met IR7 
he ten. Op deze ingangen worden alle 
interruptbronnen aangesloten. Verder is 
de 8259 voorzien van een CS-pin en een 
dat abusaanslui ting. Via deze weg kan je 
de chip programmeren . 

Je kunt onder andere bepalen hoe de 
prioriteit van de acht ingangen is 
geregeld. In de PC(/XT) wordt dit 
zocianig ingteafeild* dat lEO Je hoogste 
prloi?ftei* ll^> m 117 «§ laagste. 
Wordt i^er dan 1 IR-lijn actief , dan 
zorgt de 8259 ervoor, dat de CPU keurig 
twee INTR's krij^t aangeboden in de 
volgorde van de ingestelde prioriteit, 
De tweede INTR volgt de eerste pas, 
nadat de 8259 is meegedeeld, dat de 
eerste interrupt is afgehandeld. Verder 
is het mogelijk een offset op te geven 
voor het vectomuaaiier . Ho even... alweer 
lets nieuws! 

Wat is dat: het vectomummer? Als da 
8088 een INTR herkent start de processor 
mmi normala laesoycla cap da bus. De 
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processor leest dan op D0-D7 van de 
databus het nummer van da intarzrupt dia 
zojuist gegenereerd werd. Dit nummer is 

het vectomummer. Op deze manier kunnmi 
we 256 verschillende^ vectoren onder- 
scheiden. Officieel zijn de vectoren 0 
t/m IF gereserveerd voor de CPU zelf , 
en rest is voor de gebruiker. In 1 van 
de volgende delen zullen we zien dat 
IBM hier aan ^^mmi^m^ »a tengfi be- 
gaan 

De 8259 wordt bij de initialisatie 
ingesteld op een vectoroffset van 8. 
Dit betekent, dat wanneer de IRO-pin 
actief is, de 8088 earst een INTR 
krijgt aangeboden waama de 8259 het 
getal 8 op de databus zet bia da 
volgende leescyclus. De processor zat 
dat vervo Igens vector nummer 8 in 
CS:IP gaat de interrupt servicen. In de 
interrupt routine wordt meestal als 
laatste aan de 8259 meegedeeld, dat de 
interrupt geserviced is door een End- 
Of-Interrupt (EOI) commando in het 
commando register te schrijven. Bij een 
IR-1 wordt het vectomummer dus 9, 
enzovoort . 

De 8259 houdt intern registers bij 
welke IR-pinnen er g©*^*aftifclM zijn, en 
wlke interrupts er nog geserviced 
moeten word^ an welke bezig zijn 
geserviced ta Mfptfeg, Yifsdar is het 
mogelijk meerdere 8z!^*s M ' cascade ta 
schakelen, maar dit wordt in de PG(/XT) 
niet gebruikt (in de PC/AT wel). 

Een overzichtje van de 8 ha|?d¥lBra 
intermpts in de PC(/XT): 

IRQG/INT08: Systeem tijd 
IRQ1/INTG9: Toetsenbord 
IRQ2/INT0A: Systeembus 
IRQ3/INT0B: RS-232 poort II (COM2:) 
IRQ4/INTGC: RS-232 poort I (COMl:) 
IRQ5/INT0D: Printer II (LPT2:) 
IRQ6/INT0E: Floppy disk controller 
IRQ7/INT0F: Printer I (LPTl:) 

Nu het bekendere werk: parallel I/O en 
timers (samen een VIA dus. . . . ). 
De 8253 timer chip is de eenvoud igste 
van de periferiechips: hij zit in een 
24 pins behuizing. De 8253 bevat drie 
16-bit timers, die ongeveer deze If de 
mogelijkheden hebben als een timer uit 
een 6522 VIA. Het enige verschil is dat 
de clock die bij de VIA naar keuze de 
CPU-clock (intern) of een exteme clock 
kan zijn, bij de 8253 altijd extern is. 
In de PC(/XT) is hier het 1.19 Mz 
signaal uit de 8284 clock generator op 
aangesloten. ledere timer haaft zijn 
eigen clockingang, die ook nog voorzien 
is van een enable-pin. De enables 
liggen allemaal aan de plus, waardoor 
de clock altijd wordt doorgelaten. 
Verder heeft iedere timer een uit- 
gangspin, die hoog wordt als de timer 
af loopt . 

In de PC (/XT) word alle timers 
gebruikt. Timer 0 is verantwoordelijk 
vpor da ^y^.teenitijd. ^Hiprtoa wgrdt de 
tiBi^iiil pe^ibixaii IMffe §m^^ 



met een maximale periodetijd: $FFFF. Het 
duurt dus 65536 maal 1/1.19 us = 55.07 
ms voordat de timer afloopt. Of lets 
anders uitgedrukt: 1/55.07 of 18.2 maal 
per seconde loopt de timer af. De 
uitgang van de timer is verbonden met de 
IRQO aansluiting van de 8259 interrupt 
controller, waardoor het systeem 18.1 
F^^,^ seconde een interrupt krijgt 



hoogste prioriteit. In de 
interrupt service routine wordt een 
tellertje bijgehouden, dat na 24 uur 
automatisch op nul wordt gezet. 

Timer 1 wordt op soortgelijke wij^e 
gebruikt. De periodetijd van deze timer 
wordt ingesteld op 3.93 ms. De uitgang 
van deze timer is aangesloten op DMA 
kanaal nul, en stuurt de refresh van de 
dynamische RAMs: eeflSi t. 'ito. ■ 3v93 nm 
gebeurt dit dus. 
Timer 2' is aangesloten op de luid- 
spreker van het systeem en wordt meestal 

gebruikt om ton en te maken voor piepjes- 
e aansluiting is niet rechtstreeks : er 
zit nog een poort tussen zodat je de 
luidspreker ook uit kunt schakelen. 
Hierdoor zijn er 3 mogelijkheden om 
geluid aan de PC te ontlokkai: 

- Poort open, via de timer 

- ^°9^^ timer uit 

' i /|. Volgt het reeds 
Meestal wordt cJfe* mogeliokteid 
gebruikt. 

Er bestaat ook een versie van 8253 die 
hc^tire clock snelheden aankan: de 8254, 
Wmm tme chips zijn over het algmkm: 
gewoon uitwisselbaar omdat er zeldon met 
clockfrequenties groter dan 2 MHz 
#ewerkt wordt. 

De laatste I/O chip is de 8255 
parallelle I/O chip. Hij lijkt sterk op 
een PI A, zij het dat er niet twe©, maar 
drie poorten op zitten. 

Poort A is verbonden met een schuifre- 
gister, dat de inkomende data omzet van 
serieel naar parallel. Zijn er acht bits 
binnengekomen, dat genereert het 
schu if register een IRl of wel een INT09. 
U heeft het misschien al geraden: het 
schuif register is verbonden met het 
toetsenbord. Het toetsenbord stuurt zijn 
informatie namelijk serieel naar de 
PC(/XT), en wekt zijn eigen clock op 
waarmee het schuif register geclockt 
wordt. Is een compleet byte verzonden, 
dan volgt een interrupt, waama poort A 
van de 8255 kan word en gelezen ®n het 
schuif register gecleared wordt. 

Poort B bevat een aantal stuurlijnen 
die op bitniveau gebruikt worden. Bits 0 
en 1 worden gebruikt voor d# 
luidspreker: met bit 0 kan timer 2 aan- 
en uitgezet worden, terwijl bit 1 de 
reeds genoemde poort bed lent. Bit werd 
in de oorspronkelijke PC gebruiktf bm de 
motor van de cassetterecorder voor 
dataopslag via een relais aan- en uit te 
zetten; in de PC/XT wordt het bit niet 
gebruikt. De meeste Turbo-klonen 



gebruiken dit bit om de CPU-clock om te 
schakelen van gewoon (4.77 MHz) near 
Turbo, via de 8284 clock generator. 

Bit 3 wordt gebruikt om een set van 4 
schakelaartjes uit de set van 8 kiezen 
die gebruikt worden om de conf iguratie 
in te stellen. Met de bits 4 en 5 
kunnen de flipf I9PS die onthouden of er 
een parityfout in het geheugen op het 
moederbord of op de bus is getreden, 
worden gereset. De bits 6 en 7 
tenslotte zijn verbonden met de 
keyboard interface, om het ,;,i|p|wif-* 
register te kunnen resetten. 

Op poort C zitten de schakelaartjes 
die dienen om de conf iguratie in te 
stellen, aangesloten op bits 0 tot 3. 
Bit 3 van poort B bepaalt welke helft 
van de acht schakelaartjes wordt 
uitgelezen. Op bit 4 zit de luid- 
spreker, zodat je ook de toestand van 
die lijn kunt uitlezen. Bit 5 is 
verbonden met de uitgang van de IMA 
controller, die aan^eeft of de 
controller bezig is of met. Bit 6 en 7 
tenslotte zijn aangesloten op de 
uitgangen van de ^arityfout-f lipf lops. 
Hier kun je dus ,mm jG^^psaa, parityfout 
is geweest . 

3,4 De volgende keer^^.l^^ ^ 

in het vorige deel 

beloofde blokschema. Samen met de 
informatie uit dit deel krijgt u dan 
een goed beeld wat al die dingen op het 
moederbord van een PC betekenen. Verder 
in het volgeiKle deel de indeling mm 
zowel het geheugen als de " ^ 
Tot de volgende keer. 



6502 Elektuur CPU kaart 

Elektuur floppy disc controller kaart 

Elektuur VDU kaart 

2 Elektuur statische RAM kaarten (61 16/21 lA) 

Eigenbouw geheugenkaart (8 x 6116 wire wrap) 

Eigenbouw 1/0 kaart (wire l^Sf^l 

19 inch kaart 

Monochrom monitor (Amber) 

Itt^B wrap e^etl^nteftr^ioain} , ; 

Bit aXMig document at^^ mAima^s. 

Prijs: n.o.t.k. 
I#iif#on: 01899-21A81 

W# van Asperen 
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Een Public Domain APL-implementatie . 

Door Gert van Opbroek 

Normaliter zullen (en kunnen) we in de uP 
Kenner weinig aankondigingen van nieuwe 
pakketten voor PC^s vermelden maar dit 
pakket is dermate interessant dat ik dit 
zeker onder de aandacht van de leden wi 1 
brengen. 

Het betreft het pakket 1-APL, een imple- 
mentatie van de programmeert aal APL of A 
Programming Language, speciaal bedooeld 
voor onderwijs (Instruction) maar dermate 
krachtig dat het ook voor andere doelein- 
den geschikt zou kunnen zijn. Dit pakket 
is op internat ionaal initiatief ontwik- 
keld. Met de opzet en het ontwerp van het 
pakket is als eis gesteld dat 1-APL moet 
kunnen draaien op goedkope machines in 
st andaarduit voering. Verder is het een 
volledige APL-implement atie en voldoet het 
aan de International Standards Organisa- 
tion (ISO) standaard voor APL. Momenteel 
is 1-APL beschikbaar voor de IBM-PC en 
daarmee compatible PC's. Verder draaien er 
testversies op de deense Piccoline, de 
BCC8, de Archimedes, de Sinclair QL, de 
Amiga, de Commodore 64 en op Z80 onder 
CP/M. 

1-APL is vrij kopieerbaar en de documenta- 
tie wordt tegen kostprijs verspreid. In 
Nederland wordt 1-APL ondersteund door de 
projectgroep 1-APL binnen de werkgroep APL 
van het Nederlands Genootschap voor Infor- 
matica. Deze projectgroep verzorgt ook de 
verspreiding van 1-APL. 

Wilt u 1-APL voor uw PC ontvangen, dan 
kunt u deze bestellen door het overmaken 
van fl. 45, — op postgiro 3446248 van APL 
werkgroep Nederland te Hengelo. U ontvangt 
dan een diskette en drie, voorlopig nog 
engelstalige, boeken: het Tutorial, het 1- 
APL/PC Manual en de Encyclopedia. 

Wat is APL? 

APL is een programmeertaal net zoals bij- 

voorbeeld Basic, Pascal, Forth Het 

verschil met een gewone programmeertaal 
zit hem hierin dat de taal wiskundig 
gelirienteerd is, je kunt er dus vrij ge- 
makkelijk wiskundige berekeningen mee uit- 
voeren. APL gebruikt hiervoor ook de stan- 
daard wiskundige symbolen, kortom voor APL 
heb je toet senborden met allerlei afwij- 
kende symbolen. Verder gebruikt APL voor 
de vermigvuldiging de 'X' in plaats van de 



zoals de meeste andere programmeerta- 
len, dus net zoals we het allemaal op de 
lagere school geleerd hebben. 

Met APL kun je bewerkingen uitvoeren op 
gehele getallen, drijvende komma get alien 
en strings. Verder kun je ook een- en 
meer-dimensionale array's (vectoren en 
matrices) maken waarmee je op dezelfde 
manier kunt rekenen. Zo kun je onder APL 
met de 'X' niet alien twee getallen, maar 
ook twee matrices met elkaar vermigvuldi- 
gen. Voor de wiskundigen onder ons is 
verder interessant dat APL in- en uitpro- 
duct en inverses van matrices kan bereke- 
nen, kortom legio wiskundige mogelijkhe- 
den. 

APL is een geSnt erpreteerde taal wat wil 
zeggen dat een opdracht meteen uitgevoerd 
kan worden en er niet eerst een vertaal- 
slag met behulp van een compiler nodig is. 
Dit houdt wel in, dat in vergelijking met 
een taal als C de uitvoering van een APL- 
opdracht langzaam is. De uitvoering is bij 
1-APL zelf s langzamer als bij Basic, bij 
commercil^le APL-implement at ies is dit niet 
zo, maar dit is het gevolg van de opzet 
van 1-APL. Nu is de snelheid van uitvoe- 
ring niet het enige dat telt. Ook de snel- 
heid van ontwikkeling is van belang en 
eigenlijk moeten we de som van ontwikkel- 
en uit voeringstij d bekijken. Op dit punt 
laat APL bij wiskundige problemen de ove- 
rige programmeertalen ver achter zich. Het 
schrijven van een programma voor matrix- 
inverse in C koste me toch altijd nog een 
dag of twee; met APL is het intikken van 
^ opdracht voldoende waarna de PC enkele 
seconden rekent. 

Zelf heb ik het pakket onderhand ont- 
vangen. Ik heb echter nog niet de tijd 
gehad hier uitgebreid mee te experimente- 
ren. Als ik dit wel gedaan heb, en het me 
gelukt is de APL-tekens op de printer 
afgedrukt te krijgen, zal ik eens wat 
voorbeelden in APL in dit blad opnemen. 
Mocht u meer informatie willen hebben, dan 
kunt u uiteraard contact met mij opnemen 
waarna ik u verder zal proberen te helpen. 

Noot: Is het misschien interessant samen 
met de 1-APL projectgroep te onder- 
zoeken of 1-APL op DOS-65 en EC-65 
kan lopen? Vrijwilligers kunnen zich 
bij mij opgeven waarna ik dat dan 
wil cobrdineren. Ik weet overigens 
niet of hiervoor mogelijkheden zijn, 
maar wie weet. 
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TECHNITRON TLP-12 LASER PRINTER 

- UHEEFTEIGENUJKGEENANDEREKEUZE! 




12 pagina's per minuut (max.) 
tot 10.000 afdrukken per maand 
8 ingebouwde lettertypes; 
32 afdruk-combinaties 
unieke "FontMaker" service 



unieke "FormsMaker", 
formulier- en logo service 
3 ingebouwde hardware- 
emulaties 

flexibele in- en uitvoer van papier 
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